General Disclaimer 


One or more of the Following Statements may affect this Document 


• This document has been reproduced from the best copy furnished by the 
organizational source. It is being released in the interest of making available as 
much information as possible. 


• This document may contain data, which exceeds the sheet parameters. It was 
furnished in this condition by the organizational source and is the best copy 
available. 


• This document may contain tone-on-tone or color graphs, charts and/or pictures, 
which have been reproduced in black and white. 


• This document is paginated as submitted by the original source. 


• Portions of this document are not fully legible due to the historical nature of some 
of the material. However, it is the best reproduction available from the original 
submission. 


Produced by the NASA Center for Aerospace Information (CASI) 





JSC 
Volume 




1^230 

NASA CR- 


"AS-BUILT” DESIGN SPECIFICATION 
FOR THE 

CAMS IMAGE-100 HYBRID SYSTEM 


Job Order 71-195 
(TIRF 76-0106) 


VOLUME 3 

UTILITIES AND SHARED SUBROUTINES 


(£80-10290) AS-BUILT OESION SPECIFiCA TI08 
FOB THE CAH5 IHAGE-lOO HXBUlU SY3IEH. 

VOLUME 3: UTILITIES AND SHAHEU SUBBOUIINES 

(Lockheed Electronics Co.) 200 p 

HC 109/MF AOl GJ/43 


N80-30853 

Unclas 

00290 


Prepared By 

Lockheed Electronics Company, Inc. 
Systems and Services Division 
Houston, Texas 

Contract NAS 9-15200 


For 



EARTH OBSERVATIONS DIVISION 
SCIENCE AND APPLICATIONS DIRECTORATE 


National Aenmautict and Administration 

LYNDON B. JOHNSON SPACE CENTER 

Houston, Texas 

August 1977 


LEC-10822 
Volume 3 


JSC-13030 
Volume 3 


"AS-BUILT" DESIGN SPECIFICATION 
FOR THE 

CAMS IMAGE-100 HYBRID SYSTEM 
Job Order 71-195 


VOLUME 3 

UTILITIES AND SHARED SUBROUTINES 

Assembled By 
L. E. Giddings 


From contributions of the following persons; 


R. T. Minter 
K. L. Pattison 
P. S. Lin 
G. J. Champagne 
E. J. Hightower 
W. A. Holley 
J . S . Huang 
T. R. Kell 
D. L. Loe 


L. F. Robinson 

R. M. Rodriguez 
J. K. Rowland 
C. D. Shih 

H. G. Thadani 

S. G. Thadani 
B. R. Thompson 
E. L. Wilson 



APPROVED BY 



Supervisor 
Applications Software Section 


Prepared By 

Lockheed Electronics Company, Inc. 

For 

Earth Observations Division 

Science and Applications Directorate 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
LYNDON B. JOHNSON SPACE CENTER 
HOUSTON, TEXAS 

August 1977 LEC-10822 

Volume 3 


1 


SPECIAL NOTE 


The information in all three volumes of this document has been 
carefully checked. It is current at the time of publication, 
the end of August, 1977. This document will not be revised 
to show corrections and further changes. Rather, a new 
document will be issued toward the end of 1977 incorporating 
all changes, and making necessary corrections. The new volumes 
will be issued under the title; "As-Built Design Specifications 
for the CAMS Image-100 Hybrid System, as modified. The new 
document will be issued as LEC-11216 and JSC-13118. 

Please bring errors and corrections to the attention of L. Giddings, 
333,6311, mail code C42. 
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1. BITSET.MAC 


Sets or clears a bit in an array. 


• Call sequence: 


CALL BITSET (#, A, .*) 
Segment Type Dimension 


# I 1 

A I ? 

II I 


In/Out 

I 

T 

I 


Description 

Bit # to set/clear (0-N) 
Neune of array 
New value of bit 




I 


BIT KJ'JTiNt 

CALL BITSET<^ ,J,V) 

IS THb Ni'j~(''E« tmc -tt t.’ sET/rur-i- 

THt VAL' b T',' StT -UT ' 


L'i TwE 
V IS A 


Ah^HAy J 
1 A 0, 


, g IS Tr 4 = ri’iST 
,-iF APRAY J, 




CiJ\iVFBTEC T2 bITSET 'JET-IT .;y T. ■<cLL/L£C/ 2/22/7"^ 


Di3TS 


.title 

.GL.^U 

P 0 s %0 

HXs%i 

ri5sX<S 

PCs>i 7 


I 

3ITSFTI 


3ITSET 

-ITsFT 


f^0V 

^2(k5) 

►1 13 V 

P0,«1 

BIC 

^1777o'’.P0 

asl 

R 0 

ASP 

n 

ASP 

-'1 

ASP 

PI 

«ic 

•n.pi 

ADD 

A(PS) ,-l 

Tic 

TiJTstRO), ( 

‘'T'V 

917,02 

aSp 

PO 

SJT 

n , P 2 


*6<HS) »R' 

BIC 

917777P. f'O 

A Si-; 

R2,Hj 

BIS 

p 3 . ( • ■ 1 ) 

PTc; 

PC It! 

♦10 Of 0'^ 

♦ 4 ^ M n ( 

J » 2 0 0 0 D . 1 1' 3 B C 

♦ 4C0 , : 

2uQ.lD0.4'j,2D 


.1 n 


■y SIS 


1 ' 


■'-■’ 2 - 7 S 


2. [300,6] BLKTHM.FTN 


Th« subroutine writes a theme on a block. 
• Calling sequence: 

CALL BLKTHM (ML,MT,MR,MB ,NT , IBUF , lOP) 


Argument 

Type 

Dimension 

In/Out 

Description 

ML 

Integer 

1 

In 

Left coordinate of 
block 

MU 

Integer 

1 

In 

Upper coordinate of 
block 

MR 

Integer 

1 

In 

Right coordinate of 
block 

MB 

Integer 

1 

In 

Botto.'ri coordinate 
of block 

NT 

Integer 

1 

In 

Theme number 

IBUF 

Integer 

1 

In 

Data to be 
transferred 

lOP 

Integer 

1 

In 

0=fill with data 
Infill with O's if 
1BUF(1)*0 or fill 
with I's if 1BUF(1)«1 


For details refer to section 3. 5. 2. 5. 1.8.1 of volume 1 of this 
document . 
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BLKTHM 
Arguments : 

ML - left coordinate of block 
MT - top coordinate of block 
MR - right coordinate of block 
MB - bottom coordinate of block 

NT - theme nvunber 

IBUF - data array (buffer) 

lOP - option = 0, fill block with data in IBUF(l) 

= 1, fill block with O's if IBUF(l) = 0 

or fill block with I's if IBUF(l) = 1 


ARRAY S/CONS TRAI NTS 

NRRAY work area 1024 bytes long 

IRRAY equivalenced to NRRAY to perform swap. 





i. 


HfeRTftAN 1 V»PLU S ie2_rCj! 1< U4»3 0 3i»A)ifii77_ 

'BLKTHM.rTN /TPieL?CKS/Wt> 

. 0001 SgBR^UTlNg 1(JP) 

c 

C SiyJlNE T2_pyT..LA3FLS <»N. T‘^6'^b*S 

C 

0002 01 >16 vs 1 7H VR RAY ( i OJ <Ja J Hilf < 1, ).k4(2).1 R RA Y(512) 


JA6S-1. 


0003 

0004 
0009 

0006 


BYTE \RRAY, IRur.KA, ITEM 
BYTE IflLL.l^N'S 

equivalence (N^’RAY. IR^AY), <KK»KA) 
IPA”ESi"377' ■ 


■-T. T rUL 

0006 

OOQ9 


NLE*16 

NL^ilA _ . . . . . . - .. 

0010 


Kl»l 

MT»kU 

c 

c 

block C5>‘jSTAMS 

0012 

0013 


NJchL/3*1 

VBeNJ*S-^L 

0014 

0019 

* 

NPeKR-''L*l 
IF<nP.GT.7)GP T0 5 

0016 

0017 


Ni»l*0 

NX*NP->i0 

0013 

0019 


NK»1 

GO TP 10 . _ 

0020 

0021 


5 NPsMP-v^ 

NWsnP/8 __ - 

0022 

0023 


N'XsnP-NW«6 

fCK3M« 

0024 

0025 


nx=\'x*\a 

IF(VXj3T.0)NK«NK41 

0026 

c 

irCMX.GftSrNKeMK^l 

m 

c 

c 

PR3CESS An area «N ThEhE 


0027 

‘0028. 

0029 

0030 

0031 

MXbmT4.«xL 

■IF(mX.LE.MR)O0''7P 20' 

MX»mR 

><XL«>'e-KT 

NLE*1 

T63'2 

NL0*O 


ir(KxL.LT.l)G7 TO 20 

0034 

^L-s(^•XL■>l)/^ 

0035 

ML6»MxL.1"VL(! 

0036 

23 CONTINUE 


00'3'7 

0033 

0039 

_0040 

0041" 

0042 

0043 


T 

c 


PR(1CE$S fcV6>j LTvEr.Ynf^ aOC Lf^ES” 


TB lOO lS«0il 
HT«mT. 1 s 
■nU«NLE 

K«Kl 


IF< IS.fc3,l)NL»‘)L!’ 
IFdS.EOtDK^NK^Yl 

IF(NL,f:0.0)G7 T 3 loO 



4 


. r 0 BT»AN IV 
jaLKlHiULlil. 

C 

C 

C 

0044 

0045 


•Plus V02»04 14I14I30 

aiuiLefij< s/Ms 

. PEAP LUES F9l«M .THEME. *.NT‘ 


3 iaAUC »77 


CALL I»T<^T.MTJf^Ll^RRAYl 
CALL WAIT 



KAJl>slDlT<K) 

KK • lASUKK.f'iB) 


NRPAV(Nj^ne«A{2) 

LL< HI' ..I aj.O.) A?_JiLU 

NJJa* 0 »l 
DM <0 

KA(2)sinUF(K) 
KA(l)*lBUf(K^n 


KK =_1*SL(KK,K0) 

NR*RAV( J*I )iKA(2) 
KsK*l 

40 C2MTl*li.'e ’ 


41 IF<NK.Eo,0)OM to 49 



KA(2)»“-RRAY( JT) 

KK * lASUt'K.NY) 
NRRAV( JT>aKA(2) 

KA( 2 )sl 3 ur(K) 

KNs 8 -\R-_MX 

rr(K‘j) 42 i 46,4 4 

42 KN»*K', 

KA(D«I(?l'F(K*l) 

K«K4l 

KK 8 {ASl(KKiKN) 

G 0 TM 48 

44 KK » IA$R(KK|KN) 




rflRTRAN IV.PlUS VOS.'di “ " ' I4ll4i3d 31*AI)G«77 ‘ PAGE 3 

-IkillMtUaN /IP| 4 L^Ji3Ziia 

C 

0Q85 46 C0MTINU6 .. 

0064 KA(l)aNRRAV(jT) 

0085 KN*e.N*)T 

JULe.fi « K « lASi.(KK.KN) 

C 

0067 . NRRAY( JT)»KA<2) 

0066 Kbk*1 

0069 _ 0!J T» ^0 _ __ _ 

0090 49 ir{NO,CT.O)K#k*l 

T 

0091 50 K*K«NK 

00.92 .GP I6.9D.. 

C 

_q ___ _ 

c 

C STARTS aN A RYTg 

C 

0093 60 IL«<ML*6<)-1 

C 

0094 _ 00 80 ltO,lL|64 

0095 ir<NW,ECiO)G? T3 'H 

c 


0096 

0097 


D0 70 

MRRAYcJ*! )«13UP(K) 


0096 

70 

C 

K«K*1 


0099 

_GiP.Q_.. 

7i " 

”rr(NxVed',bTGa to 79 

s^TsjM 



0101 

KA(2)*-RRAY< JT) 





0102 

KK 8 lASUKK.NX) 





0103 

NRRAY( JT)»Kt<2) 





. 0104 

KA<l>sl0''r<K) 





0105 

c 

KK 8 1ASL(KK,NX) 






0106 KNse-^Y 

0107 _ _ KA<1 )«NRRAY{ JT) 

0108 ■ KK'» IASL<KK,KN) 

0109 NRRaY(JTJ»_KA( 2> l 

0110 ‘ ■■ K«K*i 

0111 GO Tf> 80 

5 

0112 79 ir(N'’,GT,0)K8K*l 

0113 ■ 80 K*K»Vk 

0114 9" ir(lS.£Q.0)K2*K 

' C 

c s’^AP Bytes in array eproRE >utputtimg 
5 

_0ll5 _ _ DO 99 Lai, LX 

0116 ‘ 'CALL S^AbURRAY(L)) 

0117 95 COMTINJK 

■■'c ■ ■ ■ "■■■ 

'i 

c- " - - I 

one CAUL. jWTUT,HT,NUMRRAY) • j 


2;yr2 

/V 


fl«T4AM |V«9uUS VQ2.94 
~LKTH!b£m jaUHk 

il9 CAU kA|T 

ltd ioo-CiMiKyg. 


14I14ISO 31«AU6>77 


iriMX.EOtMSiGB TA 140 


ca ri 10 

less Than 7 pixel’s^' 




•(KalAS^MKA.KN) 

- lTiM«KA{l) 

XKttASRcXK.NP) 

KAUJelBUrU) 

KK«IASU«K,NP) 

KAXlUal£*l ^ 

KK«1ASU(Xk,KW) 

NRRAV(f'J*n«KA(2J 

ca TP 50 

140 CAMTlXUe " 

SEIUfiJi 

. •• EPR05&..M.. 

WRITE(6.151) 

151 F0Rm*T<* ••eRR?RS ENCaUNTEPEOi PPeGRAf1..RETURNS IFLCii-l 

return 

JJT T LVJE 

IF1Ll*0 

..IF(PuP(l).EO,l)lFn.L«l0AES _■ 

lU»(f'L*6A)-l 

pa 25 q I»0,IL»A4 

|F(N5.N'E.0)GP T0 210 


GP V.' 230 

tlj KA(2)«N'RRA''<NJ4 1 ) 

|F(^x,LT,.T)Gf! TR 245 
_ KK»I ASR(KK,NR> 

KA(i )«u III 

IIL* I *ikjJ5 •< , \f' ) 

NRRAY(NjTn«KA(2) 

NJj*\j4l 

230 If .EO.n>r,0 TR 241 

DO ?40 JsNJJ,NJJ*NU«l 
NBRAv( j»I)*IF1LL 

24r C Z-'TIn'Jc _ 

2<1 If <Nx‘,tb.O)G> fa 250 
KA(1>«^KRAY(J*I) 

►(■<t!ASi.<K<#NX) 

KA(2>«iFilL 

.XK'lAJkl^KiKN) 

NRRAYC J*1 )cKA(2) 

. GR Tfl 250 








3. CSODPH.PTN 


3.1 ENTRY POINT - CSGDPH 

Claars Screen, Gets Date, and Prints Header, 
e Calling sequence 

CALL CSGDPH (IO,P,N,S) 

Argument Type D intension In/Out Description 

10 I 1 I TI : Lun 

P I 1 10 Page number, incremented 

on exit 

N B S I Program title 

Sill Size of N 






2 Afl£^ 


_MfPR 34 !U¥-ELi»SJCMiil 

6 t 60 PH«PTKI /T^I<)L^CKS/M 9 

,mx sy«ii«u^|ME C8onpNua»P|Xjt) 

6002 InCLUOE •TPP.HC* 

eiec.icciccicciccicci:cicctcct6eic6icc.*0cicejcciccieeiccicc<ccicc(0ejecic . 

• c I e 

» c t. 




■Moa. 


c 

j: 

c 

Jt- 


• c 

...c. 


e 

-XL 


eUEAP SCRtEN. GET DATE/PaGE HEADER 

?• KPU/l,EC/4/77 

CSGOPH'.PTE 

jjjtfiLyjL.igaiJitci 


e 

c. 

e 

-C. 

e 


e 

.jC. 

c 

c 


^QM. 


• cicctccicetcciccicciccicciccicciccicctccicctccieciecicciccieciccicetccic 


0B05 
.0006 
0007 
0006 
0009 
_ 001 D_ 
ooii 
.. 0012 . . 

0019 
^ 0014 
*^ 014 .. 


JWTJEOefl..P«S- 


RVTE n(S)»TI 1(A) 
.CAUL inATEn,J,K).__. 
CALL TlMS(Tl'i) 
.CALL.6UTPUT(27il2<7) 
IX»(5a-S)/2 
JJf.»(S9rSi/i. 


. 1000 . 


4RtTE( 16,1000) !#JiK.TlH,<N(t'),Mii,S).P 
...reRMATl99X, 'DATEl , 12, •/• • I2i •/ * 1 12/56X, •TIhELJj«A1£. 


1 <1X>X,<S>A1,<1Y>X,*PAG€I 

P • P 1 I _ 

RSTuPH 

-E 2 U 


12/) 




4. [300,6] DTCLIO.PTH 

4.1 EHTRy POZKT - DOTZN 

Th« subroutine DTCLIO uses the subroutine DOTIN to select the 
dot group of interest according to one of the following dot 
selection rules i 

1. All 209 dots. 

2. Unlabeled dots from the random sequence. 

3. Dots by type, analyst label and classifier label. 

4. Bias correction dots by the classification proportion. 

5. Starting dots 
€. DO/DU dots. 


e Calling sequence 
CALL DOTIN (10, KK) 






Integer 

Integer 


Dimensions In/Out Description 


> In Input-output unit 

- Out l>normal return 

2»exit 

3>backup 
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riRTRAN 

0TCt.i9i 

9001 


I4!l9l97 S1*AUS<77 


0003 

0003 

0004 
0009 


0004 

0007 

0000 * 

.0009 

0010 


IV-OLWS VC2-C4 

rTjii...._/T«|l|.«CfS/*<4 

SU“R?uTlMg OSTtMtPiKK) 

C 3R6AKING P^INT . _ 

C 00«04A« r/H Ii»TE»FaC6 

IHPUCIT 1MT56LR ik-l) 

include »SriC300i33CAMSC''MCN,l»-Cl 

-.-.INCLUaf- 'StlC3P0i?3CA'lSPAf<,'„'i,lvC* . . „„ 

PAPA^^PTfR 'tAXCAT»60*WA*Sil,ie«A,v4ifCMN«4,NPt’'»l96,NL|N«117,NAXruC»40 
liHAXV«:if Nn«TS»20?,DLSHlP»i ),C4SKIP«10,MAX*CD*0|'‘AXACC«4| 
2NiA9P.O*6»A.’i)T*ir)iJO 

equivalence {Cl*AC:^ATE)i (C^. ISr(i), (CJiPFLaG). (C4»TxD, (C9,0ISKID) 
INTEGER Cl(4«9),C2«206)|Ci(71),C4(SAS),C5(629) 

. Cf . 


iNTGGfcP ACOATE,S')JCAT,SUt*P ‘P|C aIKKT#CATTM 
0YT6 CWMVECiVCCHAN.StSUBiC’TCATiBeTCLU 

CJ»(iH?N/C*^PJ/ACl)ATfc(2,MAXACr;) , CM'‘VEC(^'AXC'^.^I|NAXACC) ,N0CMAN,N0SUD, 
lSgaCAT(NAXSy»),StlijP8P(HAy5 'D),CATK^T(MAXCAT),CATTH(MAXCAT),N0D^», 
2N0OL'»MPTH,t)0TCATeNnXTS),n^‘TCLL'{NOeTS> 


0011 

0012 

0013 

0014 
0019 


00X0 

0017 

0019 


0019 

0020 
0021 


0022 


c»,_ . . . ... 

INTEGEP AOATES#S(lNAZ,ANAi.ST,rLDi;AV,D 'TBAV.POATEI.TOATEI 
p<TcOfc‘’ P0ATG2,TBATfe?,P0AT 4, T:ATn,CAT^Ah,OlSKlO,RAND0«|CRIO 
BYTE CC-i.rLG|V4AC'5«SCILGRiS"NPL,NSTA«T,A;TYPEl,ALPi alp® 
byte PCTCT.PCT?;T‘',wa»,vA';B.uLA3cu,TYPE 

COHH.lN/C0H2/!SrG,rrLrLG, .» .\CO,4UATr:S{2,MAXACn),8«llLO«(NAXACD>, 
lSgMEL(-iAXACD)i5U-;AZIN4XAP0), !»•:*!£ (2>*ANAL?Y<5)irLDDAY<2>i 
2D0TOAY(2),!«START,NTVP6li'’n'T:-X(2),TDATFi{2),PDATF2(2),TOATE2I2>, 
3PDATE3(2»*Yl)ATF 3(2)t*JSCAT,':ATNA>‘(KAXCAT) , ALPIKAXCAT)# ALPOi 
4 PCTCT(MaXCAT)|PCTCT 0. VAfKMAXCAT), VARO 

C« 

INTEGEP EPlAaitErLAa2,ErLA03«ErLAC4|FFLAG9.gPLAGl,urLAG2»grLAG3. 

— . lUruAGA - 

Integer PFLAGiRSKH^T 

C0HMaN/C‘-’M3/»rLA';,»'SKMNT,CrLAGi,EFLAG2,ErLA63,EFUAG4ifcFLAC5,urLAGl 

i«gFLAG2,gFLAG3<gFLAS4.\c''lid(^AASyB> 

C» 

INTEGER YXl.TYl.TX’.TVa, AC' I SP. G , p . DTW INO. P0 TARY, GmIN, GMAX, FUL 

iNTer.fcf; SPW1NU,CLA .'M5,CLII- ' IJ 

C0‘1m'*^/CCmA/TX1,TY1,TX2,TYp, JXj • lYl* 1 X?| I V2* ACDISF(2)» 1 jl(4),G(4> . 
iR(4),nT/iN?{5iN0PT'.-rj#sp*r o«9,N?SP*;r)), i-^inofai.nuhdbt, 
2l)4TA'»Y(*.BgTS)#'iM!\,OMAX,rgi.(2,7) ,ClA. \n(3).CLU«ND( A) 
CaMfi:'\/(;»TN9/OISKtu,AANn2!''Cv£)?TS) ,CRIB<^D3 TS),DLAR£l(NC{1TS), 

lTYPE(\rATS»,RfcCL.'C 


0023 . _. _Rt*L aPC,AX,«H 

0024 BYTE S‘i.?FT(S),-i(M),A,0,C,CiAA"»BB,CC,Dg 

0029 OlHE‘ ^?jN paRRyc p -TS) 

0026 /JC0MJ/O.1TYPF, ANACAT,CLACAT,Ne03TirLO 

0027 Ng'^uOil 


C INniAi.UE T«E DRFAgiT VALUE 

0028 „ SELn»T<i)«l _ 

0029 SEL02s?5 

9030 SELCFT<3>«*1« 

0031 CALL tabLECU*. • MI) 

0052 SELDFT«4)«1I 

03?3 AAs’w* 

0034 _ Pud • _ _ ._ 

0039 SfcLCFT(5)*ir 

0936 CC**i>« 



r^RTRAK 

-ClCcU. 

0037 

0030 

0C39 

0040 

0041 

604'2~ 

0043 

0044 

0045 

0046 
..00.42... 

0040 

0049 

0050 

0051 

0052 

.._O054L._ 

0054 

0055 

0056 

0057 

0058 
_0Q59_ 

0060 

0061 

0062 

0063 

0064 
_ 0065_ 

0066 

0067 

0066 

0069 

0070 

0071 
~i072' 

0073 
'0074 
0075 
“ 0076 
__0077 
oo7e‘ 

0079 
0060 
OCPl 
0062 

006 3 

0064 

0065 

0066 
0C67 

. .,0066 
0069 
0090 


IVaRtUS V02.04 14115157 3l>AU6*77 RAOE 6 

FT.'L /T/M«LeCKS/.Wfl 

0D«* • 

S6U0»'T(6»«NSTART 

SEl.0rT(7>«l 

. SeL7aiU0 ... - 

SKl.orT<8)*'A' 

. P R I N T .7 U T. ?1 1 0 .1 

0 CB4T:\4J5 

CAI.L ^<‘.JTPUT(77,12) 

WBlTf:(li?i 7003) 

700? r3-<HAT(lX.T25, SEl.6CTI0N«*t*|/) ... 

‘WRITH ( l:<#100) 

JjOS-.rB3M*' T ( 1>‘ •.VSFLSCLJ'JTi-.A-ITH .JWE_Eii.l.0>iI N0_?PJ LPN5U) 

wRITe(lrif799) 

799 rgi^MSTd'ti'd) ALL OPTS') 

WRtTt:( !3.6no) 

OOP FF'^^*AT(lX, • (2) UN'LipPLED DfTS FR3M THE RAND0M SEOUENCE'I 
wRlTf (la»8f'l) 

401 FeBMAT(lX.*(3) D7TS PV TVPC. ANALYST LASEL ANP CLASSIFIER. L^BEl.*) 
•<RlTC-( I?.8P2) 

80? F0?“tTd>f| ' (A) aiA'! C3RRECTIC\ DOTS OY THE CLASSIFICATION' ) 

WRne( 13.80 0?) 

«002 FB^MATfijX, .pR2P0PT!0N' > „ 

HRin.( 13.803) 

Sp3 rjR«AT(lX, »J5) STA-Ll^iP_PilS'J 

HRiTPilv'.eOA) SELUfT(l) 

404 format ( i1i(6) DP!/DU OPTS* ,5X| Il.lX, *>* > 

CALL aoTl^UT (7) 

PiSI’dBl 

READ! I'.MOOO) W 

_ d74Al ) 

CALL .'RnN’T(W|74) 


,0T. 6Tisrir666 


IF(R(1) .EH, *X') (;/ Tf 99 
IF(W(1) ,E0. '«') ue T'/ 98 
IF(W<1) ,Ea, ' ') C? T3 7 
IPsO 

CALL mFFJ lP. vJ,74,NUMjiP) 

*lFCM7rtv;o~'.L‘TT T'V?*’’. "nuhuo' 

SEinf T<l)«NU“-0 

■ > ANACATs-124 

rPTYPE»-126 „ _ 

CLACATa-328 

Nar;eTs-i28 

ii ATL“?UtPuf( 27 . 1? ) 

HRITEC 1.>.7003) _ „ 

G0 Ti‘ (6e.l3,l9,l5:'ii2.1d).S£L3FTa) 

66a HRiTf ( I0.6666) _ _ 

6666 format ( t X. * 1-i.iT 0F i.'ANGE JIJ'./) 

GO T'< (6.4.150.1?2.11.l25,f2) ).P61NT 

TTthTs isrcR 7PTPN s> t:-' SAY 

12 noTvPf.si _ _ 

NOOflTaSELDFTd) 

12? WR!TEn3.146) S6L:rT<6) 

14A FiJP.MATt 'TdPlJT f-!UMPER i'F STARTING D0TSI • .2X. I3.lX| ’>• > 

,__..Call .?UTPyT...«,7J 

P31nTi4 

READ<I?,1010)H 



FBRTRAN W-RlUS V02-04 l4ll5l57 3l*AUG«*77 PAGE 7 

... DTa I1.LTM /TO I ''l. 3 C.KSZli» 

« Cf v* inlfl rBB.M*T(74Ai) 

C092 CALL F02fJT(Wi74) 

0093 IFtWU) ,6!J, *XM (-'i T0 <>9 

0094 lF(-i(l) ,63, •»«) Gif TC e - 

0095 IFt J(i) ,HO, ' •) fit; TP flb 

.. OOW lPj -9 

0097 CALL !KTrFnP,W,74.lt.L'MW4) • 

0090 JF(NI'H'4 ,LT,1 ,?■?. HL'm*I4 ,GT,. NSTaRT) Gfl t0 066 

0099 SfJLO^T (6>*‘.'U“!K4 

0100 MeF£T8StLDFT<6) ... . . . 

0101 WHI lo,l?00) SFLr'FTtA) 

0102 __i 2 V ^ jif.R ,AT.( zr. s.u.^»t iaq _c3..ts j_, 1 4 ) 

0103 Oa V *‘b 

C THIS IS F21F PPTieN Z T? SAY 

0104 13 anaCATsC 

0105 H0l33TaSELD2 

0106 4 WRlTF(If,147) S6LL? 

0107 l 47 ..F 0 «LiAT.<.'’^J'lP.U,T-HU« 3 tji 0F..Uf:LAfiIlL6D-J53TSl ? , 2 X.jiJ 5 ,lX,.L>U 

OlOe CALL l'UT'’UT (7> 

0109 P0InTs2 . .. _ .. 

0110 READ! 10,1009) U 

0111 . 1D05 FeRMAT(74Al) . - . 

0112 CALL F02'‘*TtH,74) 

_.Q113 lF.<«.tl)._,Ea._lXU_S2_JJ_2i. 

C114 IF(W(5 ) ,E0. »5») SO T0 « 

. 0115. . IF<«{D ,60. > Gif T?.08 

0116 IP'3 

0117 CALL r'Trr{IPj«.74.!iU‘lv'5) . . — 

^ 0118 IF(Nl'>"-5 ,t.E. 0 ‘.y:?, NUMK5 ,r,T, KOBTS) 6.'» T0 666 

.■_.0ll9. SELil2R;iU.M.W5 

0120 NyOifTsSfcLDS 

0121 4«lT6(lii»1201) SFLL'2 . „ 

0122 12C1 FBRsATd'X, *NUP«6R OF Of:LABeLt£l CBTS aMX.13> 

• . 0123 ..._ Q0. T? «8 

C THIS IS F.)R .OPTION 3 T? SAY 

_...0124 19. __.CC.IYRE? SE^LL’f T17J 

0125 11 WHlTP<h^»l(3a) RELLFTO) 

0126 103 FPPhatI 'IImpuT TYPE' ,2v,Al.lX, •>* ) 

0127 CALL OjTPUT (7) 

.0128 .Pin - - 

0129 PBInTsS 

0130 .RE, A III 1 Ai 1 C.QlikL ; - 


0131 100) 

FiiAM AT ( 7 

AAI) 





0132 

CALL FR.T 


74 ) 




0133 

1 f ( U ( 1 ) 

.6n, 

•X* ) 


T0 

99 

0134 

IF(W<D 

,to, 

'h* ) 

A < ^ 


A 

0135 

IKH(l) 

.60, 

• 4 ' ) 

,•* '( 

<1 1 


23j 

0136 

If (w(l) 

-•cOl. 

* *) 



?1 

0137 

iriwd) 

,60, 

'O' ) 


T?! 

33'S 

0138 

If (Mix) 

.s'), 

•1') 


T,^ 

33 s 

0139 

IF(Wd) 

• 60, 

•2* ) 



337 

0140 

G0 T'' 666 




... _. 


0141 335 SELDFT(3>» '0* 

_CIA2 S6LDr.I(7>.sO_ 

0143 GB TO 33» 

0144 336 SELOFTH)*'!' 



14I15I&7 31*AUQ*77 


PACE e 


PPRTRAN IV-PtUS VC2«"4 


_07Ctl2,rTN _ /T'lMui'CKS/wn 

0145 • " SlCDrf(7)ti 

0146 33 T*’ 338 

0147 337 SKL0rT(3)*»2« 

0140 SELr^’T<7)«? 

0149 33« D3TyP6sstunFT(7> 

._.01S9 *RITf (l;*,4?CI2) SP^^rjC?) 

0151 1?0? r3P;iAT(tX»*TYP6 • *,n) 

0152 50 T'-’ 2M 

0153 231 ScLDfnUmtA* 

. 0154 a? ?12 

0155 21 lF(ScLrrT(3) .CQ’, 'A') 3J T3 2 d2 

_JD 1 5 6 Oil 1Z.XS i 

0157 20? D0TyPE*-123 

.. .0153 _ .. .PIB2 ..... 

0159 ?0l '^RITEC !?»1777) 

0160 1777 P0»MAT( 1*1 •'•BACKUP” AND "gxiT'' 0 PT 10 MS ARE N?T ACCEPTED HERE') 

0161 7781 C^MTlNJ? 

-_016?. 

0163 7001 ranyATCj X, • AVAlL4i-i-£ CATPG'»«V '.Ah£S I') 

0164- VK1T?< I.’tTPOa) (CAT.\*rt(IRT),IRTai,NeCAT) _ _ 

0165 7302 FeHMAT(iX,20«A2,U)) 

0166 WR1TP( I2»77b0> _ 

0167 773 ^ F2RyAT(50X) 

_.O160 ''imiil Jl U3i)_ AA.4if> 

0169 103 F04mAT( **l'tPUT analyst 1.4321 *# 2X, 2a1i IX i *>• ) 

0170„ __P2»1 _ __ 

0171 CAU PUTPUT (7) 

. 0172 READ' !i%10fl2)W 

0173 lob? rCRVAT(74Al> ' ‘ ' ' “ ‘ 

0174 CALL FRaNT_(«,_74) 

0175 1F(.J(1) ,c<7, '7'",Af D, k(2) ,Tq, T?'") G0 T? T32 

0176 _ _ IFtw(l) .EO, • *) r.? T? 200 

0177 -•••—- — - -- -- 

0176 Qeu{2) 

0179 call TarCEUiC, 1 ) ' 

OlPO IF(! ,E0. 0) T£; 209 

ciei uiB«Q " ■ ““ : 

0182 AA«A _ _ _ _ 

0383 ■ WRITE (l?Vi203V AA.^Wj ' ~ 

CIP4 1203 F0RM4T(iX, *anALYST LAtiEL **,1X,2 a1) 

■ 0185 C2 T? ?o3 ■ - 

0166 23? AA3*?» 

'0187“ ■ "0'0cT?i 

• 0183 C50 Ti> 238 

0169 200 IF(AA .=3. *Z» ",ALn, 38 ‘,65, '?') 30 T? 236 

01«C 50 ?0ll 

0191 23A ANACAT»-129 

_ 0l«2 _P2»2 _ 

"0l'93 ■ 50*''TP 2i^ ~ ~ ■■■■ 

0194 2oll A»AA 

0195 (5»5B 

0196 CALL TA^LECAiOil) 

0197 IF(1 .EiJ. 0) T0 209 ‘ . • - 

0198 20? 4N*C4^*1_ _ 

0109 239 «HITF(Ii:il777> 


•4 
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.. 0761.18 .fTiJ I •k!"C'<S/WR 


" 0201 ' “ WR!TE(l>i700ir ‘ ‘ 

0202 KRlT'‘(!j»7nC2) tCATKAfK IRX), lRX«liN0CAT) ... 

0203 4HirS(l;,77dO) 

0204 WRlTF(Uiil04) CC.C3 

0205 104 faRHATC'^l'iPUT CtASSiriER LA*s6i'.2X»2A1#1X.«>‘> 

».0206-._ call. 

0207 (*3«l 

0208 RbAn(ii.'«10fl3)M 

0209 1007 ri9PMAT(74Al> ' 

0210 CALL r.<2VT(«,74) 

0211 trCW(l) .69, »2' .ANO. 4(2) ,6S, •?'» Q0 Tfl 234 

—0212 JfJifJl i j 6a._L.iJ..Gi'„.T.5i._233 

0213 C«L<1) 

0214 , . . p«W|2) . ___ __ 

0215 CALL TAqLE(C,D, J1 

- 0216 IF(J .60, 0) ,e? la 273 . 

0217 CC«C 

__0218 DD.?D 

0219 WRIT6(I:<,1?04) CC,T»D 

0220 1204 ri)R*»A|(iX, tCLASSinSR LAQS- «',1X,2A1> _ _ 

0221 G3 T;T 2o4 

0222 234 CCs»?* 

0223 ■" ■■ 

0224 GJ ? 6l _ 

0225 23s irTcC ,p6. IZ» .AKn, DP Teo," '2’> 'G0 fa'261~ 

0226 G0 TP 237 _ _ 

0227 261 CLACAT*--128 ~ 

0228 . P3«2 1 _ 

0229 60 TP 9 

—0230 237 j:?CC 

0231 0*DD 

0232 CALLTAjLEtCrD.J) .. ... 

0233 IF(J ,^0, 0) GP Te 273 

0234 _ 204 CLACATsJ __ 

0235 9 CPMTlNUfe 

0236 CAi.L.CU.T!LUT<.27.tl2) 

0237 WR1TE(1.^,1?5) 

0238 105 rORHATdX, toffT SEIECTIPN BY TYofc, AL'ALYST_LA8EL AND qUASSlF|ER') 

0239 WRIT6{ l;uin6) 

0240 1C6 FCRMATdXi 'LAG6L* ) _ _ 

0241 G0 Ti’ <400, 401), PI 

_.0242 .. ..400. k-RIT^ <df 164} ‘t6UPPT<3) 

0243 164 F0Rmat<,<X, •TVP6»,12X.'«*,Al) 

0244 G0 TP 1?0 _ _ _ 

0245 405 'iRIT6<li',lAS> 

0246 le*; roRMAT(3X, «TVP6',l?X, • lACL') 

0247 lOn GP T;i (40?,403),P2 * ~ ‘ 

0248 40V ’4R1TF: !r-.166)AA,n6 

0249 “ 166 FaPMT(3X» *ANALYST'i.AJ6L^,3Xr'T*',2Al) 

0250 GO TP 181 

0251 403 WH|T6( 

0252 567 F0RMAT(3X, • avALYST LAdEL ' , <X, » I AU * ) 

0253 18) S0 TP (404, 405), P3 ' 

_.0254 404 4Rit<=( I’.US) cc.on 

0255 165 FCRmATCJX, tCLA'sSfFlER LA‘!feLl't2Al) 

0256 6P TP ?5 


Yo 


ORIGINAL PAGfc; lb 
OP POOR QUALITY 



reRti^AM tV»«*LiJS V02-04 14115157 3t*AUG»77 PACE 10 

OTCU^tfTi /J«l‘JL-?CKSZi41_ 

0257 239 wRlTf (U'.inO) A.Q 

0255 1''19 F0PHAT(jX,t*MAi,Y8T LAtJEU K2T FSlU^D 

0259 G0 77 RI 

0260 273 «RlTt(kNlOl8) C«D 

0261 ini^ FfcPMATCjA. 'CLASStFltR LAREl. *.2A1,» M(4T F3UN0 fll't/) 

__0262 ce...!? .7.7?2 .: 

0263 AOS WftlTEil ?*169> 

0264 169 F5>smAT( 3X,*CLASSIF:6R LArtEUAU.!) .. 

0265 ?S W«lTF(K’i»107) 

0266 107 FZRMATt '^PROCfccD (Y)6S/(V')5i? >• J , 

0267 CAU. 3'.it^UT (7) 

_ J2AS af.AD.ai-. 1 0.C 

0269 iOOS FCAMATt74Al) 

0270 CAU FR»^T(4,74) J 

0271 1F(K(D .eO, *Y») 13 Aft 

. 0272 lF(/<a) lEO, *•'!') GO T? 11. 

0273 lF(w(i) .E-J, 'Ai) TP 23? 

_ 0i?4 I F < >i. <1 .) . • J. 

0275 CO If ?5 

C THIS IS re’s 4 T^ SAY 

C CMrCK Fan ClASSIFICATI.in RESULT 

0276 155 21.5 jI=li»'aSUO 

0277 IF(PCTCT<JI) .GT, n) G(^' T» 150 

_0273. 21i_C3MT 

0279 HH1TF(1;;.471) 

0280 471 PBRHAT<iX, •.MP. CLASSIFICATION RESULT IM.'i/) 

0281 62 TF. 6 

0262 l5'> WRITE(!;'.4P01) SPL7 

0263 40Cl FOPhatC » U 'PUT NUHFfeP 2F BIAS CiRRECTiaN DOTS! • .2X, l3,iX. •>• ) 

_0264 „CALL OUTPU T (7) 

0285 O0TYP6»2 

0286 POINTS.! _ ... 

02C7 READar.AftP) W 

• 0298 489 F09M*H74AJ) 

0289 ’ caul FRJWTtw.TA) 

0290 ,60, *X«1 GC T2 99 

■" 0291 iFTw'd) ,C'0, '3 0*08 tZ 6 

0292 _ IF<W(1) ,69. ' OGi, TO 96 

0293 ■ IP»0 

0294 CALL Ii''TFF( IP,W,74.NU.'1W7) 

■ ■ 0295 ■' TFINUmy? '.LEfO K’U'^h? ’.CT.'vDjiTS) "63 f0 666 

0296 SEL7a\U-W7 _ __ 

0297 ■iVoc'Fa'RH'Atd’^, 'NUMi'cP f’r'blAS ■cZCCfCTlPN D.ZtS o».lXil3) 

0298 weO0Ts*.'j'’-^7 • „ 

0299 »ifiITf < tJ'.lAOO) NUMW7 


0300 

0301 

0302 

06 

iNOxPsl _ 

CN'JK = 0 

C2 94 IAsi,N3CAT 

■ 

0303 

0304 

■ 0395 

0306 

0307 
0303 

... . 

APCsPClCT( IS) 

CALL TARLE< *X' , 'X* ,K) 
IF<K ,P'). 3) G? T« C7 
IFIIS ,f;0. K) G3 Ti 94 
AXBPC’CTtK) 

C.0 T-‘ 577 


■■' 0309" 

0310 

67 

677 

a'x*0 

AR»<ApC*Ax*APC/(lCn,-AX))»SEL7/100’. 


■ 

- 





re»T(»AN IV-PLUS 
..J)JCLl24£li— 
03U 

0312 

03)3 
03H - 

0315 

...0316 33. 

0317 
0310 

0319 

0320 . Ai 

0321 

.0322 

0323 

0324 

0325 
. 0326 

0327 

...0328 S7-. 

0329 

0330 94 

0331 

0332 

0333 S6 

. 0334 

0335 

0336 


902*04 

VALuntA;)<lQ0 


14115157 31*AU0*77 


PACE ii 


ITl^VAUUis/lO^lO — 

DlFri*VALUe-ITl 

irCDIFFi ,LT. 5) .62 T3 33 . 

in»!Tl*J0 

n 2 *m/iootioD 

PIFF?s( IT1.1T2)/10 

lF(tMf P2 .LT, 5) QH. TH 41 

IT2tlT?^100 

NiJniSTsIT2/100 

CMC4T»!S 

jCAiL .0'’T?tLt3li'IYPE. ANACA.TiCLACA.T.iAaDG.T4FLG)... 

ISP2«0 

00 57 I9V«iNnXP,CiMi;H 
ISP2=1SP2*1 

BA9KV(lpY)*0i^TARY(lSP2) 

C0.^iTli;Ue.... 


0337 

0336 

0339*" 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 
0340 
0349 


IN0XP«1^;DXP♦^'U*‘03T 

CO’^TIMifc 

03 56 ISP*1,CNUR 
I)3TA«Y(lSp)aftA9RY.( 1.5P) . 
CavTiN'tE 

NU^D?T = CMu.m 

NeneTsSfcL7 
G3 rr 170 . 

IS F’R aPTI’tK 6 T'’ SAY 


: THIS 

121 WRirE(IZ»1299) SELOFT(r) .. 
129S ra.^MATC SELECT <A)LL f'«/Oj 


"PBTS, D(C) oars 0R D(U) O0TSV 


.l»i|42Xi Atax.'2'j 


ize 


CALL .UT^UT (7) 
P0INTS7 . . 

R£AD(I^,12S) W 
F0».4AT(7^A1> 

CALL rP'*.NT{W,74) 


1 F{W( 1 > 

If ( 4 ( 1 ) 
|F(«(i) 
lf(W(l) 
IF('4(1) 


CO 

lEO. 

.60, 

.60, 

.60, 


*X» )_ 

• •) 
•AM 

• a» ) 
*U«) 


C;p 

"'iir' 

r.3 

r> X 
j %. 

fir: 

u? 


lih 

Tr 
T ^ 


99 


fi 

12S 

143 

1H6. 

127 


035Q 


GM TO 66* 

0351 

125 

IF(S6lCfT(R) ,Pa, .?•) 

0352 


if(sflofT(S) ,eo; *i"> 

0353 

141 

DNO.Mrg 

0354 


JNXPs). 

0355 


R£LO<^T(fl>«* A' 

0356 


ANACAT»-1 

0357 

569 

CALL UOTSEL(naTYPE,A^'A( 

0358 


DNIim«on'|jM*\.umI)2T 

0359 


JSP»0 

C360 


03 567 .)'’YsJf;XP,PN |M 

03M 


JSP*JS''*1 

0362 


.9 AIR V ( Y ) s DOlAflV.( J5.P1 

0363 

567 

C4i’‘iTl\J6 

0364 


lF(A64CAf ,60, -2) GO ■ 


Cl 


rz 

rZ 


1?6 

127 


TU 570 


• 1 ^ 



nmnUK IV.FI.US V02-94 14I19|S7 31.AUC.77 P*C6 i2 

_0TCL I . Z l?l?.L'JCjSS/fcl 

03AS AN'«iCATb.2 

0366 JhXFtjNxP*MyM03T 

0367 Oa T? 

6366 ?7C nu 571 KKi«i,pMyM 

036V C^TA»<y(KAl)«PA»*HY<KKl) 

_J) 3 7,a , I KUE 

0571 SU^'?''T«!>^''Uf* 

0372 N0O3T»-j28 _ _ 

0373 Ga Tf 175 ' " 

.0374 126 S£UDPT(9>»»a* _ _ _ 

0375 ANACAT«.i " ' ‘ ■“ 

0376 G3 17 BS. ^ 

0377 127 SeL0rT(B>«»U» 

.0376 , AhACAT«f2. . 

0376 58 Cfil\TlA!Ug 

0350 CAUL D5’TSKU(C«iTYPE,Af<ACAT,ri,*CAT,K2D!»T,rLG) 

0351 I7fl tTKsi 

_03S2 mi.Tf.LliJi77601 

0353 aftlTP(I;:*mi> 

0394 1111 ra»M/.T(iX, 'Oi’T SCUPCTIPIJ Rrp?>RTl']| 

0385 W«ne(lv»il50?) 

0386 150? rar)NAT(lX, •DT'T GPn 

0387 WHlTP(I?»irt95) ( D3TARY < J J ) . J J »3 » )" 

_!L35.{1 

0389 1F(n:’D-T .EQ, -l?fc) Gd T'^ 723 

0390 _ WRirec l!'»lll?) N?L"T 

0391 111? F£;nMAT(J<. 'NUMrER cjF dots T0 BE SELECTED* •. 1 4 ) 

0392 G? T” 7?4 _ _ _ _ 

0393 723 -iPITFd.'illiO) ' 

0394 lll'j_F;a.'»y*T(jX_, '*J p;^TS TZ be SELECTED * AL L') 

-0395 724 '•WifK( IvMlll?) NUK"<:f 

0396 1113 F3R?<*T{lX_, •M'MHER_ ?F UFTS SELECTED «'iI4,/> _ __ 

0397 ' 61 CCNTInUE 

0398 >fRITF(!7,.776C) 

0399 k<RITb(l/»1004> " *' * 

0400 1004 F2WMAT< 'TPRi'CtiRD (V)ES/(V)7l7 >*) 

’0401 CALLTl'tFlT <7) " " “ 

0402 R6*D(1T,190) U 

■ 0403' ‘ l90'F3»f'»T< 7443 )■ — 

0404 call FR0‘*T(Wi74) 

0405 ' .E'5, ■»Y' ) ^^2 T3 994' “ ’ 

0406 1F(a,<1) .EO, 'V') 10 T? 0 

0407* rroci) f? ? ■ 

0408 IF(i^<l) .60, 'vn S3 TO _ _ 

0409 C3 T’ 61 

0410 99 KK*2 _ _ _ _ _ 

0411 3i> TO 997 " ■' 

0412 98 KK«3 

0'4 i 3 OV9 R£t04\ 

0414 END 


4.2 ENTRY POINT - CLUSEL 

The subroutine OTCLIO usee the subroutine CLUSEL for cluster 
selection. It will allow the analyst to select the clusters 
according to category names or cluster numbers. 

• Calling sequence 


CALL CLUSEL (10, JK,CLUARY,IX) 
Argument Type Dimension 

In/Out 

Description 

10 

Integer 

In 

Input/output unit 

dK 

Integer 

Out 

See KK in DOTIN 

CLUARY 

Integer MAXSUB 

Out 

Cluster array 

IX 

Integer 

Out 

Number of clusters 












\ y i- 

mmr 



f 


I CAtt 

’^K/vey ^ 


■ 


M£.«ASr£ \ 
» *<j ' 


HE'iS/lOe V 

f2' r 


STo/je aucuK 

l/J cutfiif 

A^P '^^Ne/sq 

COUAJ’fl^ I 




^X "' j^VvX 


SBPCH l-ynou^r/l 

TWt uJlhCB I 

St^BCfij i 

— j 

<L' 


E/JP Of 

















fl>»TR*N IV- 
JJTCUl»»U5L 
OOOX 
0802 
0803 
0004 
0008 


f*LUS 


00 6 
0007 

0C06 

0009_ 

0010 


OOU 

.0012 

0013 

0014 

0015 


0016 

0017 

_oo.io 


0019 

0020 
0021 


0022 

0023 

0024 

0025 
0026' 
0027 

0078 

0079 
003.1 


C« 
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SUHH?uTlNE fLWSEUlo. lx”) 

IM^UICIT I'TP&‘-R «4*/) „ . 

INCLITE 'Svir j4jj, l‘,C* 

I NCkUoe ' S» 1 1 30g , 33C # ' Af‘ , I ' C ' 

HA^A^tTE** *'AXi;AT«6'’,?'*Xi»'.y*60#-'AXCHKi4,NPl»*l96i'JUN«ll7,MAXrLT = 50 

l,;!A)(>'«ll,N»'3TS«7''»iEk5'<r’»lgiP?i'KlP»lC,M*XiCP»6i:^AXACCB4, 

PCJ4(1V*uE«C> ICt,»C:"Alt ), (C'»,isec.), (t3|PrkAr.),»C4,TXl)*(C5,01SK!D) 
IMfer.fX Cl(4f 9>,f2(2'56)|C3(7l) ,C4{ J4A),C9(A29) 

I^TECt^ ACrATE, S 1 !«J':aT, SU'-P ’ f',C.\Ti<KT,rA'. fM 

HVTE fH’ VtC#iBCHil.,:./Su;<,r ’TC aTiC2TCLU 

C^iv'C-./r^fn/A'CnATr. (7»'i<'X/r'‘),t“'VtCt *AXC‘<N.PAX/.CC),N0 CmAN,n 2SU‘>. 
lOUt’CATl-'^A^Ud) ,S!'h»; >M' Ai'S-ifi) f C*TKVT{M*XCaT),CaTTH(HAXCAT),n 70»» 
2'j«nu.\.*TM,n4;TCAT(Nrt TS) ♦r^'TCLi'i'iDeTS) 

c« 

IrtTErr.;? AOiT?S,S'JN.'2.»''''ALS^iPLt't'AV,D-lTr!Ar,P’jATFl,TnATfci 

l.JTE'-E^^POiTrg, ?,prATr 3| X’'atMi Catka-A| i; ; SKJP, 9 aND:*h, n 

OYTE f AC' .Sv Nf U.'.SURT.ATrptl.ALPiALPM 

PYTt PCTCT .PCYTTr , vaP.va </ , CL A"'-.!. , TvrE 

c/vM'A, /cpf*?/! SrG.r'afLt,i * • co» Ai.ATts( 2 iMAx/>cn> . spilCPc^axalD) • 

iFyVEUl'AXArOi, ll?' AFC'AVA'.Ol , |►'.•'ATL(7) I '*.;ALST(5),rLDDAY(2? . 
2t3^TC*Y(?),'’STA iY.NTYPcS .‘T •.T'l(2). YDATEl(2).J’0ATt2;2)»Tl';;Yi 

3P0AtFj(i)j.tCAT';3C2),’./';AT,'" AT»,e'^{^AXCAT) ,ALPl^*XCADiA|.Pii,^ 

4 ' ' 7CfCT(*'AXCAl>,''trCTY,''AH(nAXCATi.VAR» 

c« 

iNTEOc'Y 6ruAftl,£PLA(»?,?rLA';3ibrLAG4*EFLAG5iUPUACl»UFl-AG2iU'’UAG3, 
lUFLAb« 

1.nU''E'» PPLAG.nS-M-.T 

Ca“«‘'\/f;;'K3/PHA'5,''S»''^‘-T,fcrLAOi.r.F LAG2.E.rLAC3»JFl.AROErLAG9#UFL AGl 

li”DFLAG2.^'FtAG3i'jFl'Ai»A>l:'t.A9{‘'iXSl.^) 

iNTfircv 1Xl,TYi,TX?,TY7,/U 'IPP,G,9 ,DT»!n0,R2TARYi6h 1N,CMAX,F UL 
l,MTePE-» SPvlvr.Ct.Ai-N^.rL"' D 

Cl"'r?\/CP*l4/T?tl ,TYl,TX<’«YY->,!XliJYi;,tX2, 1 Y? i aCH 1 SP ( 2 > i ni(4J,C(4), 

J\''(5»r.»'n,L).«P‘ I n(5,' PSP'-R). ! *’- 1 n'' H ) i MliHDi;! , 

2r\‘TA'^v(\r.?isi',r- ir'.V' Ax,i V (r#7),CLA'NC('!),ci.o"fjD(«) 

CKAiM.'N/c‘i*is/r'i'^KiP,«AN:r' ( ' qpt?) ,g910(no'’ts),dua':^El(Noctu), 
ITYP£(\7?TS),pE7l'C 

!«YTP „(74),A{3> _ _ 

ci-fessi.'^ :lua9ychaxsu») 

L\TW s30 

EvTiJc*?: 

PFY«'\* 
otr Ai T*i 
AO C»-*.T1\JP 

CAl.L .-'JYPuT C27,12) 


.A7^2(2). 


C* 


0031 6'4l R.'-.'Y!' If _ 

'0032 ahitF{ n.iAO") ;;ft 

0033 lAOa F,a^‘AT< ‘YSEL’^CT CUL‘i.Tr..1S liY <f.)UHHER eP (C)ATEGBPY name*, 

l2x. Al , 1 Xt ' >' ) 

0034 CALL .;jT®uT <7> 

0035 3£A0(iM6') b 

00.36 i6l_f <“''''t1'4aM 

'0037 ■ ' ' Call r4,-'.T (W,74» 

0038 IF (All) .E), *XM f.S T;i 72 



OP lY. ; 


•L ?>/ 


< js 

' ■•■j :y 


ridTRAN 1 V-PlU^ VC?-04 

ptcl itftfJn y TR I PUCKS/wA. 




wnuu^r / 
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0039 

0040 

0041 

0042 

0043 
.0044 

0C4» 

0046 

0047 
0046 
0049 
00^0 
OOfl 
0002 

0053 

0054 


IF<k(i) itO, *‘iM 
,£-3. 'N") 
ir(WU) .£<3. ‘CM 
1F<W(1> ifeC, ' •) 
Gli' T? 6061 
-_6ill_DfTsA!«‘ 


r,e 

S3 


T? 

T? 

Tf 

TP 


72. ■> 

601 

60? 

603 


60 ? 


OfcfALT*! 
se T!’ »>Q3 
OFT*'c' 

nfcrM.T-2 . 

ce T** oc3 

._603.Cj!' TI^UE 

CALL ;sl‘TPUT <27,12J 
WRIT£(I^#2103) 

?1C3 F2P‘UT(iX,T25i •***rLUST£:< KEL£CT1 ?m«#*',/) 
C0 TP (6l«62J,PtFAI.T 

C THIS I'i Fx«; select I CLUSTu'?S BY NUMBER 


0056 

1610 

Format ( *!«Imput CLUSTER nukrErS >•> 



0057 

PX 

1X«3 



0056 


COOMsO 



0059 


CALL CL'TPUT <7) 



0960 


RcA3(i«,l6l) W 



0061 _ 

-191 

FaR'lAT(74Al) _ . _ 



0062 


PO 104 l2lat,NPSUti 



0063 


CL'JA'Y< iZlJsO , 



0064 

i04 

Ci().MTlNUG 



0065 


PXst 



0C66 

26 

CALL F4f!NT( .^,74) 



0067 


_Gi» T" (35,36)i1FFALT. . . 



0C6B 

35 

lF(x<i) ,b:3, *XM r.:i 72 



0069 


»"•) T.' ‘.3 



0070 

36 

IF(»I{1) ,E;, * * .AAin, PX .EO, 1 ,aND, DEFALT '.EC, 1)G1 

T0 

61 

0071 


IF(w(l) ,£3, » » .AND, PX ,E3| 1 ,aVP, DEFALT ,E0, 2)6»3 

T0 

62 

0072 


IF(W(1) ,EQ, * • ,A>D, HX ‘.£3, 2) 00 T?i 73 



0073 


iHlsJl 



0074 

26 

IF(4(I^1) ,E0, * * ,PR, \(IH1) ,EQ. *,•) GP T0 20 



0075 


An-41 >*W< 



0076 





0077 


IF(I"1 .CE, 4) Gv? T0 595 



0076 


GF TP 26 



.0079 

..20- 

•S0 T''.. <29 1 25.. 4?). I Hi _ _ . 



ooeo 

24 

)s. • 



OOfll 


G2 T"' 20 



OOP2 

25 

A(2)s» f 



0063 


or T/ 46 



00P4 

4 6' 

ceu.NTscpUMn 



'( 

CHf:Ci< '.H'-tTV-EB there ARC T?" mA'.Y ENTRIES 



obTs 


GF T" {667.666),’1LrALT 



0066 

667 

ir(C-’l.i‘T ,R£, ENTRn) Qi: T0 76 



0067 


CP TP 670 



0068 

66f» 

lf(GPU'’T ,r,E, ENTRC) G.< T0 76 



C06V 


C4' Ti* 6 7i 



0095 

-671. 




0091 


CALL r'TFF( IPP, A.2.LVU'') 



0092 


IFOVuH ,LT, 1 , BNUM ,PT, NiSUB) CP T0 598 




14116150 
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r»«TRAN IV-PlUS vo?.D4 

.PTCLU.rT.N ,if.T«l«L5’C''3/W» 

0003 PX»2 

0994 IX«IK«1 

C0‘'5 CLUAPyOXJsBNUM 

0096 259 00 25 1h2»1iIH1 

0C97 W(lH?)st • 

..0090. 2?...C0'-Jb *f 

0099 Gitl Tf’ 28 

0100 for w«ITt< I?ils24) ( A(jH.1) . J•^3^1,^) 

0101 1624 iCLUSTf.K , 1X| ? *1, • 2UT Hf HANGE Ul'i/) 

0102 T” 

0103 599 WHirrc I.:il623) J A(JH?), JM2al,3) 

Ji04 1623 F0R.:i*T<l*#lCl.USTfH t.UMHE v Vl><* ?*li ' ’'UT «F RANG6I I S • •/) 

0105 G«I T'* 61 ■“ 

0106 59f GB TP ( ^99 , 5« ) , OFF ALT 

C THIS n r.’R SfcLtCTlNG ri.u3T6RS BY cATtaeRY NAME - 

0107 62 •■■IHITF(I:»,1660) 

0103 166'' r:;R«AT(ix, •••SACKUP'* and "Exit" zpTia^'S are npt accfpted here') 

0109 666? CO"TI:gi)t 

0110 " ' wRiTi:(‘i^’; 2 iu.i)' 

OIU 2lUl. Fi,Ji-MAT(iX, *MVAlLAti| E CAT'C'RY '‘AMtS «') 

0112 >IRnL<Ixi2lO?)(CAr AM<Hl>),IKPsl,N'-)CAT> - - 

0113 2102 Fi'RMAT<lX,20(A2,lX)) 

0114 HKITE(l;)i2ll5) ■ ■ ■ 

Oils 2115 F3RMA T(5 9X) _ _ 

0116 Hf^TFc 13**161?') ■■ ■ ■ 

0117 1612 FWRtiATl * HI VPUT_ CATEGORY NA't >• ) 

0113 G0 TP Pi ■ 

0119 671 CALL TAqLE(A{l),A(7). IK) 

0120 irilK ,\E, C) GJ T:‘ 699 ' 

_012l HRITE3 I^,1627)A(i), a<2) 

6122 1627 F0RMAT(iX, •CA't'a?<W >!A';b*,lX.2Ar^ F’l'U'-fiT ifT^/) 

0123 Gt. 1? 6662 _ J 

0124 ■ “ 59 WhlTE( I'?«162«) ( A ( I li > . I Ilal, 3 ) " ~ 

0125 162r, Ff!R,'iAT (jX, «CAT5GPHv * A''E' ,iX*3a 1/IX# '.Y3T FPUMD IM'i/) 

0126 Gf T? 6662 ‘ ' ' 

_P12 7 6 VO_FIwD = 0 

oT2d O'la ■69njii7\ii.5W 

0129 _ _ IFISURCaTI J) ,'ie; Ik) GB T^ 69 

0130 ■ ■ ■ PX«2 * 

0131 IX«IX*1 

0132 ‘ ■ rriDsFlNO*! ■ 

_0133 CUJA‘?v( iXjsj 

0134' 69 CB.\'T t?:uF. ' 

0135 IF(FIM) .En, 0) GB Ti- 39 

0136 Gf Tf 295 ' ’ ' ' ' ' 

0137 X9 ^.f<ITF( 13*1630) A(1),A<?) 

013S 163G **,5, CLUSTER F3R CATEGORY NAME », lY* 2A1 , IX, • t )!',/ ) 

0139 RX=2 

01 AO " 

01 Al 

0142 

0143 

0144 

0145 

0146 

0147 


(iw ^6^2 

73 JK«1 

^'R!TE( IC!*1620) ' ' ' ' 

1620 FBRPATdX, 'CLUSTFR SELECTION RrP0RT*./) 
4HITF(IG*X*21) 

1*21 FiMmA T< 1 X, *ci USTER 'ERS j • ) 

4HITt< T;'.i‘2?;<CLLUH:Y( IL)* 1C*1* IX) 

162 ? F 3 GMAT<)X,iiii 5 ) 



re^T^AM IV-Pt.US V0?-54 14116150 3l*6U0«77 P*6E 



01*8 . ««n»5U0*l\4O> IX ... . 

01*9 1649 ril9K4TClX( iMUHagP CUUSTfiRS SELECTED *<13) 

0150 71 C{»NTINU6 . . . 

0151 xRlT6(I'».2ll5) 

..0192 .'"HUrdiiil*!!).. 

0153 1611 ri5Rj*AT< 'SP42CfceC <V)fS/(V> ‘7 >•) 


0154 

CALL 3"TPUT (7) 


0155 

RI:ADtr'‘.166)M 


0156 

166 X«1RMAT«7**1) 

‘ 

0157 

CALL 


_0156 

...IF(kM) 

.2i’ T.v’.J22 

0159 

IFtW(l) ,fcO, 'iJ«) 

r,■^ TS 60 

.0160 

inH(l)..iEQ..J.P») 

T,ii 603 

0161 

ir(w(i) ,62, ‘XM 

ai? Tf; 72 


0162 . . .... ... CD I? 71 -. - 

0163 76 KR!T1;(13»1616) 

016 4 l61 6_.r.grM.4T,UX,.t L3J_J1.4..\y ..£ NT.Hl £3_LbL.eLka.U»-SELEClJ Hl/.I 

0165 uO T? (6l*6662)iDcrALT 

0166 72 JK«2 . ^ 

0167 G8 T^» 7?2 

.0168 . 7.2? JK»3 

0169 , 722 R6ru»\ 

.0170 Eiii2 



4.3 ENTRY POINT - TABLE 

The s'lbrouti&e DTCLIO uses the siibroutine TABLE to search for 
the nunerical sequence of a specific category name. 

• Calling sequence 

CALL TABLE <E,F,I) 


Argument 

T^e Dimension 

In/Out 

Description 

E 

Alphanun^ric 

In 

First byte of 
category none 

F 

Alphanumeric 

In 


I 

Integer 

Out 
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muibm m - 

#0G1 8UM«£*tTl^6 TAf.LEC£,r.l) 

#e«2 - implicit r-'TEGfc-R (A-?) , 

0003 INCLI'DS 'SVlCSrOiSTCAMSC'^MS'A'.l'lC* 

0004 * iNCL'ine •SYlC300i33CA«SPAHAM,l?iC* , 

0005 • PA«A‘'ETF« HAyCAT«6''.#HAVSiJ4B60f*"4XCHN»4,.MPlXst96.MLlN»117»MAXrLn*50 

f liPAXV»iijNri>vTS»2PArSLS'VlP.»J3..fi5mP«10i.?tAXACIl*04iimCCMj 

• 2M2SPWDa6«N*DTU'PalO 

0006 • EOUlVALe^'Cf: (Cl,ACnATS)| (Cg, ISptil, (C3,PFLAR), (C4iTxl>i (C5,D1SK1D) . 

0007 • INTE'^-E’) Cl(469)|C2(256)in3(71).C4(343).CS(629) 

• C* . - — ... 

0006 • INTL';?!? ACl)ATE,SUbCAT,SU^P.'P,CATKNTiCATTH 

.0009 -• Util. aH:yyECji;aCh.AN..'.3SUiJiD:;TCA.TiD2lCLU 

0010 • C0MMOM/cPHl/ACnATc(2.'^AXAC(‘)»CM'V£C(*1AXCHN,MAXACC),NPCHAM»Nesun, 

• lSy6CAT(YAXSUS)»SUePtP(::AXS'.'3)iCATKfJ{HAXCAT),CATTH(pAXCAT),N0D3« 

• 2M0Dy,M*TM,O0TCAT(Nr..'TS),r'itfTCLy<VOeTS) 

• C# ... 

OOU * integer ADATF;S,SUNA£.A\ALS'r,PL0UAV,DeTDAY»P0ATPl,T0AT6l 

.0012-* laTEQE.R_PDJ\TE2,-TIlATl:2.Pi)ATt:34TlLATK3iCATNAN,ClSKlDaRANDe.HiGRnL 

0013 • 3YTE n^LrLG.NPACO.RilU^’^.S 'NnL.NSlARY.NTYPEl.ALPiALP® 

0014 ♦ PYTE Pf:TCT,PCTGT'^iVAR|VAtti.*,DLAGfcLiTY»*E 

0015 • C0HMVi\/cPM?/ISf=G.O'-LFL'^4f 4 aC0. aUaTES(2,MAXACP) .SP1LGR(maXACD> i 

• lSy'JEL(^AXAC0)#?5UNAF(f'AXACi;), J.''0ATE<2),ANALST(5).FLDDAY(2), 

• 2D2T0Av( 2>.' STA»Ti VTYPEl,i'3ATfel(2>,TDATSl(2),PDATE2(2)»TrATE2(2), 

ft 3-PDAlE.it2l4.TOA.T.u5{2.) i :u'CATtCATNAf(.KAXCAt) «ALP(MAXCAI)j ALP0i 

• 4 PCTCT<NAXCAT)#PCTCTP,VAK(NAXCAT)»VAR6 

.. f..— C.t - 

0016 * INTECE'^ EFLACl,EFLAG2i6FLA33*ErLAG4»EFLAG5iUFLA0l.UFLAG2*UFLAG3. 


f lliPLAGft - 

0017 • integer PFLAG.OSKNVT 

0018.* C0?iMf?l£CPM3/.PfLAGjrS'^.''VTierLAViiiEF:uAG24E.PLAG3»EElAG4iEF.LAG5.ii]F.LAGl 

* l«UFLAQ2.UFLA63,UFLAU<l,'.c'JUtMPAXSU9) 

• Ct 

0019 • INTEGER TX1,TYi,TX;!,TY2,'aC'>ISP,G;8,OTW1NO,D0TARY»GmIN»GPAX«FUL 

0020 • INTEGr.R SPl-.I NP, CLA .'.n, "D 

0021 • CU.lH'‘</C«H4/TXl,TYlfTX2,TY-!,IXiPIYl#IX2iIY2»AC0ISP<2»»IIU4),6(4>. 

• lR<<J,nT*'lN:’J5i':0or.ip),SP JJiJ)<5jL'^OSPWO>,l'iwINn<4I|NilMD0T» 

“• ■ 2oa7“'AR V u Dots ) • g 1 1 n , «»■ a x , r jt < 2# 7 i . cl a-'nd ( i > , clumnd < « i 

0022 • C2HM’^N/Ci'H«j/GISKID.RAMlvJiM( '0;*Ts)|GMl'HND3TS)|DUABEL(MDflTS), _ 

'• ~TTYPe{.vD3TS),PECL’'C 


0023 

0024 

0025 

BYTE F»F#IA<2) 
EOUIVaLENCF. (KK»lA<in 
iA(i)«e 

0026 

IA(2)aF 

0027 

Df» 1 1«1#N?CAT 

0026 

IF(CATNaM(I> ,EQ, KK) 

0029 1 

CONTINUE 

0030 

|BO 

0031 2 

return 

0032 

E M P 





4.4 ENTRY POINT - DOTSEL 

The subroutine DTCLIO uses the subroutine DOTSEL to select the 
dot number and total number of dots according to the conditions 
specified in the calling argwi»nts. 

e Calling sequence 

CALL DOTSEL (DOTYPE,ANACAT,CLACAT, NODOT, FLAG) 


Argument 

DOTYPE 

ANACAT 

CLACAT 

NODOT 


Type 

Dimension 

In/Out 

Description 

Integer 

- 

In 

Typed dot 

Integer 

— 

In 

Analyst labeled 
value 

Integer 

- 

In 

Classifies labeled 
value 

Integer 

mm 

In 

Number of dots 
specified by the 
analyst 

Integer 

- 

- 

Summary variable 


FLAG 
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•DTCl.!ii.fTJ( /T»»Hl.«*CK8/w^ 

0001 Sg!J«!"gTi>i£ D?T3EU{*^PTYPi:,A\ACAT»CL*C*T«NOD0TiFlG) 

0002 implicit iNTESlft (*•?) 

00«li ISCLUO^ ’8Tir3''ii,3lCAMSC'’M»N,|\C» 

0004 • IflCLUn*: 'SVItJ00i3?CAf!SPAR\K,lMC 

__O00> • ^PAPA^FTE? MAyCAT»6''',IUXS'lt»40|?*AXCwN«4,XPlX«l96iNLlN*U7|HAXrLC»50 

t“* l,MAXV«'iliNn?iTS«i»09,DLSHir’«10,DSSKlP«lOiMAXACO*6»'lAXACC*4i 

• 2N0SP'*O»6»N''OTwP«lO 

0000 • 60yiVALt*:'''CE (Cl*ACnATe)i(C>iISEG>»(C3|PFLAC),<C4iTXUi(C0»DlSKID) 

0007 • INT5RE'-< Cjt469),C2(256)»r3{7J»»C4Ci4»=),C5(029) 

• C* 

...oooo.* tNTetiee ‘cdatkiSuhcatjSu'^p ’ piCATshTifiATTM 

0009 • BTTg C‘'l«VEC:#>'k'CHAN,*iMSl.'{J,i;’T*AT»l3fcTCLU 

0010 • Ca''M'\/cOHl/*CnATe{2,MAXACt:)»CMKVtC<MAXCMN*HAXACC),N0CMAM»NPSyH, 

• jSUaCATlw4X4U0>,SUBPC P(''AXS'lH>»CATRMTfMAXCAT),CATTH(MAXCAT),NPOO» 

• 2^0DU#N4<T»<iOl()TCAT(NriJTS>»l'iTCLW<NO2TS> 

• Ctt 

. OOU • ]N.T6'’Er^.ADAT5SiSvlNA?.A^-Al.ST,F^0DAYiP'T0A.Y,PDATEli.T0A7El 

0012 * iNTEfiER POATG2iTnATE2.POATr:j,TpATfc?#CATNAK»PlSKlC,9AND3M»6RIO 

0013 • PTTE f!eL^L3»'J«?''C5i3!'lLf>'<«S'.’N£l..NSTAMT,AiTYP?l,ALP#ALP0 

0014 • BYTE PCTCT,PCT':T'"iV'AP#VAiU),DLAPftU,TYPC 

0010 • C0A‘H*N/C5’M2/lSi-G.rPLPL5i^ 'iAC ')» A^ATf S(2 iMAXACP)#S«IlGP(MAXaCD)i 

• l5Uf.a(MAXACO)#3U''A(!tMAXArOl, IM'?AT£(2).ANALST«‘>),PLDDAY<2>. 

• _i0eTPAYC2>i'''S>TA:U,KTJ?E1 ,t’()AT;i(2>,TDAT[=112.>,PDATE2(2)iTpAT(-:2.<2)a 

• 3PDAT£3<2>i YDATP.3(2)|N3CAT,r;4TN*M{PAXCAT)iALP(MAXCAT)» ALP0» 

« . 4 PCTCT<MAXCAT)i“CTCTg,WAP(HAXCAT),VAR0 

• C* 

0016* INTEOCR PrLA61iErLAU2|EFLAG3|EPU64|CTUA69«UFLA61fUFl.AG2(UrLAC3i 

• ’ 1UFLAG4 

„.0017.9 IN.T£0£P_'’FLA0i'aS'<H';I_ - 

0010 • C0KK?,/c2M3/Pr"LAr,,iSKM'jTi£FLACi,Ef LAG2,EFLAC3#EFUAG4#EFLAG9 iUFLA01 

• l,L'FLAr.2,i;FLAr.3,gFLAri4,rvc^L;.«(MAASL3) .. 


0019 • 

0020 • 

0022 • 


INTcGEF Yxi,TYI,T)(9,tY 2, ‘.C jl^P.GiB.DTWJNPjOaTARYiGMlNiGMAXiFUL 

iNTrGt'R Sp><l'jD,CLAvl-'r,rL">'' D 

,TX2iTV7, !Xi^* 1 Yi# I X?, I y2j ACPI SP(2 * * U A * ^ I.'.Gj 4.1* 

TB{ A r. of k. I'np'( 5 , M.^nT„D ) . SP • 1 ■ D ( 9 , NPSPv/P ) , I Mwl Nti (4 ) , NuPDOTi 

2DOTA'’Y(sP3TS)»'Vlff4.GHAVirt.i|, (r»7».CLA'^M)(A),CLUWNn(A» 

■ COHMP(g/c*'M?/PlSKlO,FA>Jt‘'l'M.‘.D.‘’TS)iORliH^D3TS»iDLABEL(MDt>TS)» 

1TYPE(V'JTS)|PECL''C ... . 


0023 

_0024 

0029 

0026 

0027 

0020 

0029 
_ 0030 

To 31 
. 0032 

0033 

0034 
0039 

“003V 
• 0037 

0030 


NU'^DPT*0 



NPl«l 

NP2»1 . .. ... . 

MP3tl 

MP4»1 

DJI 99 t !*iiNP4liTS 

nj,TAry< ll )fO 

99 Ck!:.Tl‘,bE 

IF(p.*TYpE ,EC,-12U) ^'Pl»? 

IMAKaCaT ,E0, *12A) MP2«2 

IFICLAFaT ,60, •J2')) M»3»2 „ , .... ... . 

IF(D'*T’'pE ,E0, -124 ,ANU, anaCaT ,E0, .120 ,ANPi CLACAT |E0, -128 

li VP4t2 

I'm’ 4‘ AcAT ,E0. -1 ,?P| AfaCAT iEC. -2) *JP4«2 

00 9 

' ^4■^A^D3M( I > 



ORIGIN ALTAGFMS 

OF POOR QUALITY 


0039 
8040 
00«i 

0042 

0043 

«J0044._ 
0049 

0046 

0047 

0040 
0040 

_A050 

0091 
. 0092 
0093 
0054 
0095 

_JWJW 


14111140 3UAU0«77 


67 

66 

10 

20 

a.. 

n 

)2 

22 


2|.U$ V02«04 

ij?4 aw «!<8/ia ^ . 

68 rr (6’t64)*N24 

lf4DWAacW(M} .20. .1 ,22', nwAllEU(2) ',E0, «2) O* TO 9 
S*^ Tj) Ci0,27>,^2i 
If(TV2B<N| ,M|, p^tYFE) 00 T2 9 
68 T2 flt,21)(V2? , 

J T i DU^SI, i 1 L.t':S . . >N45AlIJil.-10 — 

08 T.^ (l2,22)*'t23 

irtDrTCATc?^} ,*'6, :W4CAT> PO TP 9 _ 

B9T^PVf»iWMP8T)»H ... . 

IF«MP0.'T ,bO, *l?a) r.iJ T< 9 



9 eONTlNi'E 

..IF4NUMDI.T ,WT, N-*Of<T) Pi T^.^ _ 

00 TP 4 

S . . FW3»l . _ ... .. 

4 86Tu«N 

ew D 


2A0I 2 


5. £300.6] OSBT.FTN 


This routifis will opsn fils from specified areas of a multi- 
spectral image. The imagery may be in UNIVERSAL, LARSYS, or 
ERTS formats. 

I 

The imagery may also be either on the * foreign* tape as received 
from scmie other system or a preprocessed PDF 11/45 named file. 

e Calling sequence 

I j CALL DSBT (LUN,Fll, FILE, MTXTFG, UNIT, EN,RHD) 


Argument 

Dimension 

In/Out 

Definition 

LUN 

1 (lord) 

In 

Logical unit number. 

Fll 

1 

1 (word) 

In 

File indicator. 
0»FILES - 11 
l«Foreign (tape only) 

FILE 

i 

i 

\ 

33 (bytes) 

In 

If Fll«0, this is the 33 byte 

character string defining 

the complete file specification. 

Exan^le : 

DKl : [ 10 0 , 2 ]XXXXX . EEE ; 1 

If Fllf^O, this argument is 
ignored. 



I 


I 


The followiag arguments are ignored if F11«0. 


MTXTFG 1 (word) 


UNIT 1 (word) 


FN 1 (word) 


In Tape drive on which the oper- 

ator mounted the tape. 

0*MT tape drive 
1»XT tape drive 

In Physical unit assignment 

made by the operator when 
he mounted the tape. 

(0-3) 800 bpi 

(4-7) 1600 bpi. We do not 
obtain imagery tapes in this 
density. 

In File number ±(0'*>N) 



Arqua«nt 

PN 


RHD 


Plaanaion In/Out Definition 

1 (word) In Pile nuxober ± ((HK) 

The program will skip over 
PN (PN-1 if PN<0) end of file 
mark* to position the tape 
to the correct file. 

NOTE ; This relative to the 
current file, not the BOT. 

^e effect is to position the 
tape to the FNthe file from 
the current position. 

1 (vrord) In Flag to cause rewinding of 

tape. 

j /FN is relative to 
O-rwind (go, only 

l«no rewind - leave tape 
where is 

2»no initialization, space 
tape only 


J«f PRTR A N._L\LrEU/i.i.P2- C < 

^ DSETiFTN /T«H'^L2C*<S/Hi» 




PACE 1 


OOP! 

mi 

OOOJ 

0004 

-J00£. 

0006 

0007 

•0006 

0009 


OGU 

,0012. 


SW^ft^uTi-Vg dSET (L'.'VtFUiFiLriMTVTrO.UNiT.rN.RWOI 
ruPLlClT IATfcOE» (A • 2 > 

. Integer ffunc _ 

BYTE m?aDER<1) 

JTIE.riLt.lli , 

/MC»M/ SS.SE»LS.LE» .’aPD^iNCSP9»K'CPR» NRPC»AnCL.NC 

L.NQIT,33I|VC4R*SVD,«SI7|PSkIP,mS1H,CALP|C£R8 _ 

Ca*<M?;N /l<SLP/I«".t.P 

BYT? lUFU) 

integer IM<64), 

.8VTE_iiy£.Plli 

INTEGER HSI22(3J,LSLfC(2) 

DATA HSiif/ 3060.00C41D/ 


iMS, 


0013 

0914 

0015 

0016 

— 

JJATA LSi.<*C/71,l / 

1431-Ff P®PFUNC('’U'‘(I*l3))*2r»?*FFLNC(6UF(I*12)) 

PBUF C 1 ) «FFl'NC ( nUF (1*12)) •23p4FFlMC (SUf ( I *13 ) ) 

READY a 0 - 

0017 

0016 

0019 

0023 

0021 

_^022 

■ - • 

EfcPF a 1 

|F<FU,vS.O) G1 .T0 1 

CERR < a 

t)3 34 I a li33 . _• 

iF(FiLtmiEo,o) ca Ta 35 

lF(FlLEn).fca.» *) Gai? 15 

0023 
0024. . 

34 

35 
0 

09006 

ca^TivUE 

I a I •1 . 

yRlTF(LP.9006)(r!LE(J).j8l,i> 

FaPMATC *,32A1) „ , 

*0025 

0026 


■ call FV0PEN(i,LL‘’'»FlLEiIil5TAT,2O4LUN) 

CALL fvwait(lj‘;> __ _ . .. .... 


0027 

0026 

0029 

0030 

0031 
J0032 

0033" 

0034 

0035 

0036 

0037 

0038 
0039' 

0040 

0041 

0042 

0043 

0044 


9UF(1 )»1 

bOF(3)»0 

BijF_(4)sO 

8ur(9)»o 

BUPUnJso 


1006 


SuFUl^’O 

9UF(12)sO 

‘iFnSTAT.EO.OlPETUPN 
CERR s 1 

■WRlTEll0.XOC6)lSTAT 

rgPMATt* rVigPEN frr-'-R# 


ISIAT » 


OSCT TERMINATES'///) 


0045 

0046 

0047 

0048 

0049 
0C5C_ 
‘0051 

0092 

0093 


return 

IFIR^C.ET.P) GJ" T2 7 
CALL 1 lNlT(LUN,r'TXTrG*UNiT) 
CALL TAtGh.LUN) 
iF(Rwo.\'E.n)aa Tf 7 

C A L L_T • ' - n < L 'si^' » 

’call fnCeaiiNiFN) 

C6«»R «. 0 

return 

I « F\ 

IFn.lT.n) I « 1 • 1 


J:ALL TFiLE(LL'N#l.) 

fFd.Gs.r) hbtUR-' 

CALL t3TaT(L'JNiF‘CTi 1) 

IF(IAND(FUVCi"40')’,N6*3)f>feTLRN 


i'HJG 


Mgk is 
quality 





07 


0093 

0099 

0100 
0101 
0102 

_J103. 

0104 

0105 


IV.PLU^ V02-04 14117139 3l«AgG«77 PA&E 2 

1 /!« I «i.‘*C*<S/W4 ^ 

CAUL TflCeCLUK,!) 

R6TL'9*i; _ _ 

ENTRY DgSET (Li'N.ni.RWDI 

. ir(Fii.ue,o) G? Tk! 2 

CAU ^VCL0S(LU^') 

9feTU.Hi 

2 irtft' n,\F,o) Gi Tr 3 

CAU Tf''^;G(LU^‘) - 

GO 4 

3 1 .« -1 . 

lF(c»fF,feO,0)I s -2 

fe£?.f.. 4_1 

caul" Tf 1LE|LUN«-1 ) ' “ ~ — 

CALL TSTAT.LyNiFNCTi 1) . . 

lF(|*:.r<{FNCT."40f))’..\iE,D) G? TC 4 

CALL TMUE(LUNil) 

4 CALL T^lSE(LUN) 

ENT ^'y 'niTe A 0 ( L UN . wt'ru'ra^ 9L'F7e=^FT2 Tf^^^ f , F ri7»^f f i'E ilFi SHF OT" 

. . IF<CrS'‘’.»'E,0) »eTU'’N 

lF(«'Jf S2.GE,HSU7<Fi»Nf1AT))C./ T?' 42 

, CERR s 13 

WRlTf:{l0,lOOR)norS2,HSI2;(rif?!»'AT) 

.1006 Fecj-aii^ eypsi^ 11, •._.:EfcQ_Lili,_L lEAD.JEElUNiAl IS, ?//.>_ 

RETURN 

42 . C^^'TlNllE 

CALL 9RE4O(LUN,Fll.'^UFfHSl22(F»«'<AT),BCT,60'F,PRTV) 

lF(trr.F,*'E,c)6F.n«FaF 

IFCPI'r.EO.ORETorjfj 

J#HS1Z?(F8RW4T). 

DJ 3? i ■ 1,J 

32 MEADL-wUTpRUFd;:*!) 

0 Jl2 = J ♦ 12 

D «RlT‘^(LP,5002).l,(oHF<X>,ysl,jl2j 

lF<rii.Nr,0) Gr 33 

_TFsw'UjF(-7» 

in'Tf.to.r^RMAT) a'* th 3j" 

HRlTr:( l3,lC07)TF.f''R‘UT 

1007 fi5RMAT(* FILE Fim'-iAT IS Mi,' R50JESTED FORMAT IS ',15/ 

1 • HRCAO TERMlNATrS'///) 

CERR s 2 

5.ET.U''’-'!; 

33 CSNTI;:U£ 

IF(HCT.t:^,MSlH^{r.^7^‘AT> > G-< T2 5 _ _ 

MRIT0( LuiOim'^SU^ir )BMAT),R'.r 
1000 FORMAT! ' hOADER RE-;'.fO SmJ' i ;i p,E »,I9,* BYTES L0NG', '/ 
i ' IT IS ',15.' RYTcS L<!RG. HoEaD TERMINATES,'///) 

C£BR a 3 


R£TuB\' 

5 CALL MPRv'SiL'JN.FlJ .t-FACER,reoMAT,EyF,PRTY,ShrG> 

IF<Cf:R9,-'t,0)RKTi'RM 

6 Q a RSl2 

IFUSlZ.OT.RursZ) 0 a »grS7 

CALL . R'»£ AP ILI'N , H 1 , i"F. , 1 , filT . F ^/.jR.RTX ) 

IF<tEv‘F,‘ t;,C)cEOraS.)F 

IF(F'RMAT,FQ,3)G.1 T/ 6 


a 



re«TRAN 

OSI-T.FTN 

0158 

0159 

0160 
0161 


OlBl 

•_ 01«2 

0183 


IV-PLUS V02-C4 14117139 3l"AUG«77 PAOE 4 

i 

JK(I)sIR 

16 I « 1 ♦ I - - 

12 CO’VTiNiUE 

ll READY « 1 . • 

0 IF(P!*ffMAT.NE.3)WPlTE(l.P|'^000)UB<K)#JR<K),K#lin 

05100.- I a JP •MJL.l.t .1 5< 3Xi.L5 ) ) 

RETURN 

15 WRtTRfla.lOOUCHAN -- 

1001 r0<'N*T<' iLLf:ci*L channel request, *, 

1 TFInD TERHitaTES'. ( 

CE'SR t 4 

E H T I Y R E E oTl U N i"? UF F , b UF « B F S 2*i DL I N« f il » PRTY i EJF i F PRMAT i RCHAM ) 

If (CcRR.Nfc.ORETijPH .. 

Chan « rChan 

- IF(RCkAn.GT.mc) .02 f 30 - - — - 

1F(RF.A0y.NH,0) 63 T0 31 

w.QiTE.datiaosi 

1005 FflRvATO iMPRiSPES CALLING ScOwENCE Tp! LREEDi LREED TERMINATES'///) 

C6RR • 5 . - 

RETu-TN 

30 WRlTE{l8il’104) . RCHAN.NC 

1004 FORMATO requested channel is *»I5/ 

X .‘HiMggR a r CHANMg LS -AYAJiaaLE..l.S-ii.l5ii-Lg££D-XfB.RlNATESj.///j 

CERR»6 

RET'jRn _ . 

31 CldvTlNUe 

D URITE(LP,lSOa)CL.r.H-'< ■ 

1F<CL-0lIN)2'»»17,1R 

J.0 b'R|.IE.(ICfl?07}CLiiiLlH i 

1002 FURMAtC Ci.'RRf':T LUE IS ',15/ 

. .. 1 • DESIRED LINE. lS'iI5/ . - 

2 ' CAN'i'T RACKUP file, LREEQ TEHMIn^iTES, '///» 

CERR = 7 — -- 

HfcT^JR^ 

29__ FLINSDI LN-”£!r(nLtN-il'‘'EST,N’'SpRj 

LS'<=T(FLlN-TV)/NnSPR-l)'» ■ R!’0S 

D HRlTE(LP,l500)rLlN,LS<<iTv 


f 

■ 

D1500 

F 0 R^«^T<» '»iaiio) 


0186 


IF(LSk,l 1,0) 6* Tj^ 19 

t 

0109 


CALL RSKlPUUN.Fll.LSKiotJF 

i 

1 

_0190._ 


ir(RSl7iLE|l3t'FSE) Gd T-' ' 

1 

0191 


C£»R * 1? 

ft 

i- 

0192 


VRtT'( l3,l00V)RUrS?,RSli! 

11 

0193 

1009 

FCFrATt ' 8UF«52 « ' , I5» ' ■ 

r 

0194 


RETu^'N 

t 

0195 

43 

C.1VTI''-'E 

& 

0196 


CALL RRt*'0(L'JN.F1 l.llL'F.RSl 

i 

■ 019 7 


IFIE'-./F, vtVOEt-icrAruF 

1 

Si 

0198 


IF(Ef'F|PQ, 0 > K^■TtlRM 

& 

0199 


IP <2-f:'N'UT}?1,20,?0 

1 

0200 

20 

TV«lSL •-C(F’R''AT) 

J" 

w 

0201 


TYeFFuNC<iiUF (LS^l?) )*?5o 


0 

D6000 


FiiRMATC ',21l3/<' '.6(2<<')ir’X)ilX))» 
G3 T2 22 




r' POHR OVALITY 


0202 


r^RTRAN IV-PlUS V3P-04 


141171.19 ’h«AU6»*77 


PAQE 5 


.osFi.nu 

0203 21 

• . D 

D 

0204 22 

0205 

_ 0206 

0207 


0209 

63 

0209 


0210 

1003 

..0211 . 


0212 


0213 . . 

49 .... 

0214 


0215 


0216 

17 “ 


0 


TY ■ TLIM 

RS12 « RS17. *12 

WRlTtaP,6COO>TY,RSJ2,(8 iF{C)iOH|RSl2) 
irar.fcciFLi^') t»- ir 
irnA\r)(rUK, 255), ‘JE,1AN?{TY, 2551)03 T0 63 

T.5L.a.r!.J,< 

02 Tfi 15 

. . 

JR1TE{ ll!,ta03)FU.‘i,TY 

F0RhAT<* scan LIVE MiJMIJgR SRP?R'/' DFSIRED LINE IS 
1 ‘ actual line is MIO.* LUtEC TERMINATLS'///) 


• no/ 


■'P£TU«V 


cl*dlin 

CCaN « 1 

intJRpns.LE.l) OP T2 23 

VRtTE(LP,6ri01)NRPDS 

C6001 Ft*PMAT(» h?W n'iD ! gTt Hc^7???? *I5)“ 


0217 I = JR<C«A.V)«J7(CCAi\> 

0210 CCAn s chan 

0219 ini.EO.C) GP T0 24 _ _ ' 

0220 CALL RSkIP(L"N,FH, l-l.ouF) 

Jl 2 2 1 CA LL_R3fAD<L:jNjFUaBur|.RSl7j ^CtiE 2 FiPRTY) 

0222 iF(£?.?f .^E:,0)tEi:F«f aF 

022? _ ir(E''F.EO,'») KI-TURN _ _ _ „ 

0224 24 ADCs o 

0225 23 lF(FCRf<Al ,E0,3) QA T2 25 

0226 h‘ s ADD4lU{CHAf.')«’ XI 

_0227 i_« x2- XI 

0 -iR jTf-:{iP,bPCl>R,E,Ai)?,Xl,X2,SS' 

CSflOl r?i:MAT<' *,615) _ 

■ 0229 K » C ■ ■ ■■■ - 

0229 _ Da 26 I s T,E _ _ 

. 023C K s K ♦ 1 ■ ■ " ■ 

0231 26 8urF(K)st«urU*12) 

"■023^ “ '.'¥TuRm 


0233 

0234 

0235 

0236 

0237 
0238' 

0239 

0240 

0241 

0242 

0243 
0244' 
0245 


25 l's(< xl-l)/2)*0*CHAf;*2-M.‘'D( VI, 2) 

£s(( x2-1)/2)«5*CHAN*2-n?D(' X2,2) 

j 8 XI, 2) _ 

K • '0 

29 pe 27_I_*_l,_J 

K~ «'< ♦ 1 

ftUFF<«)tRUF(R*12) _ _ _ 

3 • 9 ♦ 1 

27 1F(B.DT'.E)R£TURN 

J 8 2 
^ K ^ ♦ 6 

6 F"TP ~?8 ■ 

END..,. 





6. [300,6] DSKCHX.FTN 


This subroutine validates the existence of the current segment 
number and determines whether or not the current disk pack will 
acc(xsmodate the segment. 

e Calling sequence 

CALL DSKCHK ( SEGNO, PTR,DSKID, FLAG) 


Argument 

Type 

Dimension 

In/Out 

Description 

SEGNO 

Integer 

1 

In 

Current segment 
number 

PTR 

Integer 

1 

Out 

If flg«l, disk pack 
to be mounted 

DSKID 

Integer 

1 

Out 

Available disk pack 

FLAG 

Integer 

1 

Out 

O«good segment. 


right disk pack 
Invalid segment 


wrong disk 
2-invalid segment 


.Hrf . I y-!»iy.OP2-o< u j.u‘ w si-jiga-?? tf 


bSKCHKiFTN /T^IPl^CKS/W? 

0001 SgO«.U*Tl>ife DSi<CHK(SfeiSMr'|9T^|PSKlP|Fl,^0) 

0002 Implicit iMfcen u-z) 

0003 oiM6»sio'' KPATia.acjii^'ufFKa^) 

0004 OPEMU'^lTtli <A“ea*''vf'lCJ';0»3''y3rsKTBLinAT»iACC6SS«*OlHECT* 

t_„Ty.PE.«'?L''*#''/.XPE^«li"rC^-’P.Sl2':t2i30) 

0000 ?Pt^(l»;NlTt?,NA*iea'rt.i2ltJ10i30-lhf'RREC,DAT*« 

• ACC£SSa»SE'>UEHTlAk*|TY.‘’E«*7WO',B6AC0NLV) 

0006 FUAQaO 

0007 .. PTP*-9 

0006 PEAU(?»10O) MuFFt 

0009 141 fZPKA.TtZli^?) 

0010 06C2rf:.«4,iPl,8UFFl> CUWOSK 

0011 101 F3»M*TU4) 

0012 read (I'D KPAT 

0013 . - oa 2 J»1.2ft0 . , . .. 

0014 insec^a ,eo, kpaT(i,j)j ca rz lo 

.0015 2.-- £Z!lTl>iy£ 

0016 FLAG*2 

0017 '53 T'-" R5 

0010 10 ir(KPAT(;>,J) ,FO. CURDSK) 00 T6 20 

0019 FlAG«1 _ 

0020 DSK1D»KP*T(2, J» 

0021 .00 T«* .25 

0C22 20 PTRaJ 

0023- DSKlPaKPATUrJ) 

0024 25 CLtISe(yMTel,DISr25£s'SA -E*) 

0325 CL'^St(UNIT*2iOISPL'Scs'SA/6') . 

0026 RETuRR 


7. [300,6] ELAPSE. PTN 


7.1 ENTRY POINT - ELAPSE 

The subroutine prints out the elapse time between the initial 
and final calls. 

• Calling sequence : 


CALL ELAPSE (II) 


Argument 


Dimension 

In/Out 

Description 

II 

I 

1 

In 

11=1 Initial call 


11=2 Final call 





Nf aUTRAN . LV ?P|.US. VP2-fl.< JL4J.19 • 

FL*PSE,fTN /T«I‘5 u‘^CKS/i^R 

0001 SUPRPuTlf’E ELAPSEUn 

C 

. C SgSR?U1l^'t T? P»1NT ELAPSEl' Tint: 


JL4J.19«?0 ll!!Ay6-77 


c 

c . 
c 

- ,c 

c 

c. _ __ 

ruNCTlPNtPPIVT fllT ELAPStO TIME 
OATEIAPRIL 6,1977 
PPTGPAMMtPlPAUL Ll‘t 

Calling SBQgPNCEiCALL ELVPseui) 

wmEPE n«i initial call 

. . ..11*2 FI." al. call 


c 

...c 

c 

auTPUTITJ'TAL ELAPSED TIME HgTMEeN INITIAL AND FINAL CALLS 

EXAmPlEjC 

C HAIN PRAGRAM 




MAIN. L^GIC 

1I«2 

CALL ELAPsenn 


PEAL Tl.oELTA 

real 5CR 

INT6r>bP JSCR.lSEC.lNlN.IHp 
G? Tfl (li2).ll 


initial clall 

■ I Tl«SFCNOS<n,') ' " 

Qtl I,?_ V9’9 . . 

f.l‘.lAL_C4jd. 

2 OEUTA.SgCNPSiTl) _ ... 

JSC»soElTA/60, 

SCR«.ipca»6n« _ .. _ . 

' ISt:C*r&LTA-SCR»0,5 

lHr»*vsc«/6n 

fHl\»jScR-I<if-«60 
TVPf: lOpO, IMP, IMT,. J5EC 

loop rtTHAT<' T’TAL ELAPSEU time* '.12i'I'i12iMM 2I 
9999 RfcTuKM 











I 


I 


6RRHE8 — PRINT! DIRECTI VE^ .I/Pi AVD_tCLlR!t’8. ME&SAfiEJL. 

iNTReOUCTIPN 

this package SURRSUT1VE8 PRINTS hpssages riR ri»EcVivg‘I 

l/0» AND file processing (FCS) ERR^RSt ThE APPROPRIATE PtSSAfiL I' 
tl,230H5SYM,Ms8 IS PPINTBC ALONG xlTn T>*e RM^GRA'^ COUNTER 
_(PC» AT ThF POINT FRPH HMiCH T^E SU6R-'WtlNE,.KAS.-CAUEiJ.. 

The m0 (message SUTPUT) handler is lseq per all 

operations, - 

The roLLRwiNG entry points ape ppevipeoi . 

_DJRERR. • P»lf'TS THE MESSAGE PPR thE ERR.E *l.LND I CaIEI! 

IN TmE niPECTive STATUS nrRn (ES'K) AT VIRTUAL 

location 0, along KITH thP vALLE or THE PC 

BBTAINEP fRPM The STACK, ••Dl''EKR*’ HAY BF 

USED AS THE EPR’P handling ShNKPUTINE aDOPESS I'i . . 

directive Calls, aptcp the message is ppintfdi 

THE TASK IS CONTI RUED’, 

10ERR • PPINTS THE MESSAGE FKP THF PPRCP |NniCATEr IN TmE. 

I/a status block iPPavi'iEo «s an argument), 

ALONG KITH THE PC OPTAl^ED AH3 k THE STACK, AND THE 

the 1/0 status block, the TaSk EXECUTION CONTINUES 

IN TmE case or an ENO«eF»FlL El a THERHIS F THF TAS K 

1$ crntinuld, 

FCSERR - PRINTS THF MESSAGE F0» THE ERPCR 1 NDI CaTED RY 'ThE 

FILF OESCPIPT'^K liLOCK (FOR) PaiMTfO TP «Y PO, 

AL0NG KITH THF PC 0»TAI‘kD PROP ThE STaCK AMD twE 
ERROR CPDF, FILCNAmF, A' 3 L"N, IF T^E ADDRESS K^AN 

1/0 status plpck is ppfvntr in the fdo, it t’p is 

printed, after the MESStCc iS PRINTED, THE TASK IS 
continued, "FCSrNRM HAY 3E ^•bfiC AS THE ERROR HANDLING 
SL 3 RRUTINF address IN FcS CALLS. 

NOTE, IF these SU0R0UTINPS APp ImCLUmED IN A TAS K TH AT 

C0NTAP.S e*'LY HAC»*'»u generated code, the global 

SYMB?i. ••.H'^LUN" MUST UE DEriNE'* ELSEWHERE (FPR EXAMPLE, _ 
BY including "HUCEF.FbJM AS INPUT TO THE TASK RUILD', 


fcserr - 


WHENEVER THE TASK IS CPNTI'lED, IT HAY 0E PESUMEO 3Y 

..INTER I N6 I 

CON ‘•TASkkAHE*' 

T0 HCR, _ . 


JOHN T, DALTON, CODE 933 


29 0CT 1979 


Data aRca 

',KCALL MeDFI,MCuTf,WTSET,rDDFlL,OIRV 

M0DF< I define h/ flags, _ 

FDaFTL I DEFINE FOB OFFSETS, 

MTSES 30, I OPG TO *AIT F0» MO HANDLFR CPHPLSTXON 

HOUTI lOCSTR,PARAH,0,C''NT,SVLf)f,,Mur,i34,,MiaST,0 

,K3RD 0,0 . 

FIlE name string FOH E»R0H hESSA'SE S*UPCS, 

(WJ'RD 20$-i0* I length CF rlLE NAME ST»|N6‘, 

IKJIPH m I P<F1LE name STRING) 

,ASC12 /SV|Cl,250I0SYM,«SG/ 


format string For DIRECTIVE FRROhS, 


o:::n[NAT, 


I'ALiTV 


rm 


•iVEN 

_J)1ESTEI (HllllO 20f-lD* 1 LENfiTH 8f rXPUl STKInC,. 

iot I •(raKNAT stkiku 

.. lesi (ASCII /directive E»RM — RC • WPXINXVA/ . •. . 

mt 

« fIRHAT ITRIWO riR I/P ERRCRS. 

(EvEm 

ItESTRI ,K3Rn 20S»10* 

(RPRn iOS I •ireRHAT STRIAC) 

-lOSi (ASCII AXVAXiNPC ■ XlRXlNI/R STATUS I»L«CKI4 

(ASCII / XlR.RiO XID CXlRIR/ 

__2flSl 

I P0RMAT string rSR fCS ERRORS. 

(EVEM 

PCSSTRI (i<?Rn 20S-10S I LENGTH 2P r^RHAT STRING, 

101 I RCrRRMAT STRING) 

rCSLl«20$»lCt I length tut ST» >/R I/P status BLR 

_JXSb2R30S-l0I I length LT FMT STlL.A/_I/g .STATUS, -RU- 

lOSi (ASCII /FCS ERRPRI PC • XIP/ 

(ASCII /X1nSvAX1NX2P X2AX10IX1X, LU*)«X1D/ 

20SI 

— (ASCII /X1NX2P/ . 

SOSI 

(EVEN — — 

PARAHI .BLKV, 20. I PARAHtTER AREA. 

.. SAVEI ,ElK^ 2 I TEf'P-R/.R'^ ST'-RaGE FaR REGS,. 

BUFI (BlKP 13A. I FUFFf-R ffi f-ESSAGE. 

.SBTTL PIRERR — PRINTS DIRECTIVE ERRPR PESS*GES, , 


I 

I ENTRYl CALL DIRERR 

I 

—DIRERRII . 

H0V P«O,M0UT«H,C!NUH I HgvE ERRPR CPDE TO SPB‘, 

8GE lOS I RETURN IF yi £HR’.R, . 

NEC HaUT*H,OVUH iCPNVERT TF REcef<0 N'JHRER, 

- ADb *l2B.,»<aUT*M,0NUH „...j.DlR6CTlVE..EHRe!>S_2ri-SEl_Sl_l2B,, 

MOV •MFlLEiMPUT*H,f*STR I FIt.fc NAHE STRING AppRESS 

HOv ,kPlUN#«PUT***,PL'JN I LUV 

CLR HOUT*H,0»RH I NO PARahETCRS 

M0V8 »8U$Fr»,H0UT*H,t)?iST | GEt HCsSAGE IN BUFFER, _ 

MOV •BUF,M'*gT»M,P8UF 

MOV „ •i34,,houT*h,C51> 

Move ACSoNTiMf UT^H.i-^ACY | CF.mTINmE after ORERaTi^N 

DIRS RHPuT I GET ERROR »(tSSA6E IN BUFFER 

DIRS «HTS€ I AND kAlT FFF C^HPtRTlON, 

MOV <SR),PARAM I HOVE Rp TO PaSahFTER lIST, 

“f MOVE message string PARAMETERS T? RA»AMLTER LIST 

I (ASSUME A ?NE-«ECeRD MESSAGE), 

MOV euF4?,parah*o , hessace U-iCth in bytes 

MOV »BUF*«»PaRAm*4 I •(''ESSaGE SIRIaG), 

CLR hout*h,0*:Uh i TOHMaT STRt'G IS IN C3"E‘, ‘ 

MOV AOlRSTR.MjiuT^H.esTfl I FOflHij STRING ADDRESS 

HOV fPARAn.HHUT^M.^HsM i'papamltER STPINQ ADDRESS 

M0V3 fSY«ST^lME'4n»,,M ' uT^h.BOsT I PRINT Hfcss w/ wOR 

Move' AC50NT,M3 UT*h.paCT r*’CBNTiNuE iFTER'OPERATllTN* 

DIRS AhPuT 

DIPS awTsE - - - 

lOSi RTS PC 

SBTTL lOERR — PRINTS I/O ERROR MESSAGES, 


Entry I ■ ’ call l perR ( I ost ) ~ ~ 

HMERE I^ST IS the. rWR«UORD I/O STATUS BLOCR, 

0ERRII 

MOV ROiSAvE I SAVE R<:Q|SrEPS USED, 


8 


.?ott 

•SBTTl 


N«v 

Hav 

N8VB 

B 6 E 

Nlia 

UP 

H8V 

**iv 

cua 

NfV 

MavB 

M0V 

NfVB 

DIDS 

D|«S 

H8V 

JtiV. 

MBV 

CkP 

HevB 

«lv 

Ck» 

.M0V9 - 
MBV 
KBV 

CL«» 

SET UP 
wav 

.M0V . . 
NavB 

. IF ESFi 
CMP6 
. BEo 
Have 

01»s 

HBV 

H0V 

«TS 

FCSEI^R 


Pi«i«vfe«2 
2C«5»«P0 
(POlfAS* 

zot 
«l 

M OPB <HAUT) T'l 
A1 »hPuT*m,<»HUM 
•MPLUHtH^UT«H,nMjN 
HBUt*Ht«PPM IHP 
PHFltE#«?UT»H,^STH 

•auif rR,Mat)T*H', 0 ?)ST 
.pBuriH«uT*M,a8UF 
■lS4.,«0UT*M,asI? 
*C«8XTiHAUT*h,(»acT 
#hOUT 
PMTsE 

SuF*2«PARAM 
..•BUF«4iPAPAH*2 
(SP)iPARaM« 4 
PA»AM*e, 

(Rn>iRi 
Pl>PARAM«e. 

PAPAM*A 
1(P0>,PARA»**6 
2<BO),PA1AH*iO, 
2(P0 J,Pa<»AH* 12‘, 
HauT*MiC‘igM 


RIIPST) . 

CET EPPBP CZnfc 

BfeTUPH If *<f EPPPP, . 

pECbPD $ r,'"' ctasr^iMsc 

GET *'ESSa 6E rR^*r OIBSYiltnSfl 

I PEcaPi) nu'-hep 

lUSlN 

PAPA‘«ETEo)» 

I riLfc NAHE STRING ADDRESS 
I get nesSAGE IN BUFPER 
!..P<P‘.rFgR) 

I si?fe er buffer 
iCBntInge 


WAIT F-'R PqSSAOE CRHPlCTIBN 
length bp tLSSAGE (BYTES) 

P(h 6 SS\GE Tfe*T> 

PC FR2« S|AtK 

I..CRR 8 R CEDE Tf.PARAHEIElLklST 


I ?r MPRD 

list. 


1 T0 


I HBVE BYTP 

I PA»A“E»ER _ 

iHPvt weaD 2 ar iasT fpr printing 

I I‘: decimal and aCTAL. 

I INDICATE F?HmaT string In CBRE', 


HR nPB F*tR MtSSAGf. PR I NT I vG, 

»IPESTR|MjaiT*H,0STR I Pe»M47 STRING ADDfiFSS 

•PARAm#hi<UT*h,'»pbk I PARAHgTER STRING AOflRESSj 

• SYsSTM|HETADR,H«UT*h,P0S1 I PRT PN SYLPG W/ h'dR 

CBNTlNUe after PRpTING, aTHgRwjsE C0NTINUE, 

••10,. (RO) I EUF7 


I NB • caNTINUE. 


10* 

*C*0NTiMBUT»M.PACT 
•MPyT 

• WTSE 'iWAlT FSie 

SaVEjRO I P6ST?RF 

SAVE* 2 ,R) 

PC IRETURN 

— prints EPRPR HESSaGES rBR PCS ERRBRS^ 


message CBhPLETIPN 

registers.. 


I ENTRY! CALL FCSfRR 

)' the address zr YhE file DESCRIPT'-R BlBCR (FOB) iN USriS 
I, . BBTAINED FRBH ro. 

J ,THE. FBkkPwlNG HgsSACE IS PRINTED B.N_Tll 

). Fcs errbri pc • <Arn»Ess> 

) <ERRPH MESSAGE TCXT> 

l„ <F,ERR> <r,LBR*l> <p1LF ’'AMES, UN*<L‘JN> 

f <2 -HCrO 1/P status rLvCK («NlT IF ADDRESS IN FOB)) 

) THE task is Then CPNTINUFD'. 


FCSERRII 

., N0V 

H0VB 

BGE 

NEC 

tstb 

BGE 

add 

10*1 

nav 


Rl»SAvE I SAVE Ri . _ 

r,fRR<R0),Rl IGET c»Ji'R CCDE 

20t 1 rtTyoN IF ERRAR 

Rl I Ce-T NECBPC NU*'0E» .1F" MESSAGE 

F,ERR*1(R0) iChECK F<*r ClMCCTlVE ERRPR 

i0$ 

•l?fl.,Rl iDlRECTlvE ER-'PR • ADD l2B TP RIC • 

RI.hOuY^m.CNJh 
*MF1LE»M'^UT*m,?STR 


7f 


•FILENAME 


n 


IF 


.1 

l$tl 


rav 

CtR 

M0VB 
HBV8 
M0V 
,M0V_ . 
OlRS 
DIRS 
M3v 
CLR 
H0VB 
-CLR .. 
M0VB 
M0V 
ADD 
ADD 
M3V 
.M0VE. 
H0V 

.m . 

HilV 
. M0V 
M0V 

H0VB 

M0V 


,MS5LUN»RJ’UT*'1,CI.MN 
M0UT*Mi0PRM |N0 

*ButrrRfM0UT*H',0nST 
«C»BNT«KW»H,<»ACT 
«BUF<M0UT«M,00UF 

*134i,H0UT*R,0SI2 

iH0UT I 

«MTse I 

(SR)i»ARah I 

PARA*^«6 

F,fcR«(ROJtPARAM4A 

PAPA«*«t I . 

F,FRR«l(R0)|PAnAM«8t 
R0»PARAH*lO, 

»F,F'!8iPA«AM*10, 

«k.dvnm,param^io. 

F,r N9*Ai, UNI T ( RO ) ,PA«am*1?, 
FILGNAkP. FR?h FIlENAH^ PL'-CK T<* 
F,FNr»4N,rNAM(RO) ,PA«Af1*l^, 
F,FNR*N,FNAM*2(HC).PARAH»1«, 
F,FNR*N,rNAM*4(RO),PARAM4lR, 
F.FN'Uf;,FTYP{Rn),PAHAH*2Q, 
F,FN0*N,FVER(RQ).PARAM42?, 


PARAMETERi 

I GET MESSAGE IN BUFFER 

1 AND C0NTINUE 

I PiRliFFGRI 

1 Sli!6.0f_9Ur.FEa 

GET HESSAGr: 

wait F'R GEMPLETI0N 

M0VE PC TB PARAMETER LIST 
M0VE F'.ERR 


AND E . 6RR*i_ll_PARA!!£163-U STx. 

CBmPUTE PIDEVICE NAME) 


I 


t UNIT » 

.Parameter lisi*- 
ifilenahe 


1/0 STATUS 

.. tst 
REq 

H0V 
M0V 
M0V 

. SET UP 
CLR 

_M0V 


PARAM*R4, 

F,LUN(R0).PARAM*?4, 
*PCSLliFCSSTR 
BL3CM ADDRESS 


I FILE TYPE 
I VERSI0N number 


I LUN 

I SET length 0F SH0RT FmT STR _ 
IS PR0Vl"tO IN FDBi print IT T00'. 

I I/fl status- faLK PROVIDED? 


LENGTH er L0NG_X{iI_Sl8_ 
•<I/0 SlAT faLK) 


20SI 


M0V 

M0V 

M0V 

M0V0 

M0V8 

_OlPJ 

Dins 

M0V 

RTS 

•End 


F,PkST<RO) 

15* 

- TFCSL2»FCSSTR. i 
F,B<ST(RO),Rl I 

(R1)*,PARAM*26, 

<R1)»PARAM»28. 

M0 0P8 (MPUT) FOR MESSAGE PPlvTlNG, 

M0L'T*M.0MUM iFPRI'aT 5Tt<lMG Iv C0RE 

0UF*2.PARAM«2 1 length ZF :*fcSSAGE..TEX.l4 

«8UF+4iPARAM^4 I P(mESSa 6E TtXT) 
AFCSSTR*M0UT4?i;k)STR jFPRvAT STRING ADDRESS 

«PARA.M,M0UT*-!,r'PRM 

*STSSTM|HE*A;)i>,HPUT4M,i;DSl ' . 

PC*0NT»M5'UT*m,0aCT iCPNTlNLE 

«m2ut I print message. 

tfWTsE IKAIT F 0 P CZmPLEt10N 

SAVEiRl I R6ST<?RE RO 

PC 



L 


9. [300,6] FPFPl.PTN 


The subroutine FFFPl converts and returns in real format the 
first number set off by blanks or commas in array A starting 
after byte I. 

e Calling sequence 

I » O 

CALL FPPPI (I,A,N,V) 


Argument 

Type 

Dimension 

In/Out 

Description 

I 

I 

1 

In/Out 

Pointer, zero before 
usage first time 

A 

B 

N 

In 

Input array to convert 

N 

I 

1 

In 

Size of A 

V 

R 

1 

Out 

Returned data 


HFPRTRAN |\f-PUS_.w02-D^. . 14 L2l.« 5.8 31-A4'a-17. 


FFrPl.rTK /T‘Jt‘»L?CKS/WR 

COOl FFFPKP.A.N.Fpn) _ 

0002 1NT6C.RM F^iFn 

0003 Integer P»n.F0PM(7l. SKIP. FXiPPl.lPl , - 

0004 byte A<74: 

_0D05 BE.*L.F.Ph 

0606 data >2Rm/»( t,» *,* F‘»» *|',0',' )•/ 

0007 IDP « 0 

0008 PPJ s P* 1 

0009 inpp? iCT.N) 33 TC 7 . 

0010 ra 1 I • ppi.N 

_fl.OU J F I A { 1 ).,£W .P56 1 ..GE._Iil_22 

0012 IF(A(I».r:0,"53) GC T- 2 

0013 IFUn),£Q."55> ni- Tv' Z. 

C 1F{A(I>,F0."54) 1? T?/ 77 

0014 . 1F(A(1>.UT,-A0) GB J'/, 1 

0015 1FI*(|),LE, '71» r,i) TZ 2 

.0016 J. ULI.P..J!_J 

0317 77 P a I 

0018 7 . FP.M » 0 ... .. 

0019 RETURN 

0320 22 IDP = 1 _ _ _ 

0021 2 SKIP • I-l 

_ 0 0 ?2 LP1_ ’ SKI P ♦ 2 

0023 lie = 0 

0024 iFUPiiLE.T} Gf re e 

0025 J a IPl 

0026 G3 ra 4_ _ 

0027 8 Oa 3 J « iPl.N 

0026 J J ...... 

C lFtA( J>,EO,'*40> r-2 TP 44 

C IF(M J),P3,"54) GO T3 44 

0029 1F(A(J).E0.' •> r,Z T3 4 

0030 . _ JF(A« J>.P0. ». ' > '■•2 T'} 4 

0051 ' iF(A(j).=C.’"‘3) TPi 4 

_00,32 IF(a(j). EQ ."'? 5) T-i_.4 

0033 IF(AC J),‘E,"56) T-5 3 

0034 IFUnp.EC.l) G3 T3 4 _ 

0035 IDP a 1 

0036 3 C0'T1nUC 

0037 4 P a Jj . 1 

_003fl FX a P'S<IP-Jil 

' 0039 ir's^iP.lE.O) r.»i t> s 

3C40 F2Pm(5)='X.‘ 

0041 FA s SKlP/10 

0042 FD = S‘<lP-FA*lC 

0043 F2fiH(2>»IPP( <Fr*"60)*256,rA*'*O0) 

-0044 

C44 JJ a jJ ♦ 1 

c no = I . . 

C G2 T‘- ' 

0C<5 5 r2f«(2) s » * 

0046 F2Pm(3»» » • 


PAGE..1 



.0047. 

0043 

0049 

0050 


fa. a. fX/lC 

FB 8 rX«FA»10 

F0Pf<5)« t OR (<FP*"ftC)«256,F* ♦"60) 
0£C2')e<P.r'’Rf:»A,fRH89)FP- 



/ >!.-v ^ t/ V y 

^ 


r\ 


page 2 


reiTRAM IV-PLUS V0?-'>4 14I21|58 31-AU0*-77 

fFrpl .rtv „../TW| ■lL5^fl.'<S/Ma 


0051 


RcTu^fj 

0052 

9 

fpw « 0 

0053 


«6To*’N 

0054 


Gn2 


1 




10. PPUNC.PTN 


10.1 ENTRY PERIOD - PPUNC 

Oiven a byte it converts to Integer, masks off any sign extension 
and returns it to caller as function. 

e Calling sequence 

I « PPUNC (B) 

Argument Type Dimension In/Out Description 

B B 1 In Byte to be converted 


^3 








■<rwl>TW4N ltf»B LUS VPg-Q^ „ 3l*Al'C-I?. 

•^rUNC.rTN /T»<lPL^Ci<S/WSt 

0001 lNTgr,e»« ^O^CTr^ fFD'.CU) .. . .. 

0002 iNCL'ICt 'T^IP.IMC* 

• ciccictjccscciccicc;cciccic(;iccirc«c?»cciccicciccicc»ccicciccicc«ccjccic 

t c 

- ^ 

• c _ . .. . . 

C C0NVI=‘»T mC' Tw ' K'i.slON EXTEND INTEGER 

C T, KCLL/|.fcC/4/-/7 . . , 

C mi.'^C.FTN 

ftjMJ} L‘I.CL!iCP-J.t!7L, l.‘iC.! 

• C 

• c 

•' c 

_ * C ... - 

• ClCClCCIGCSCC:CCICCJCCICC«rCtCC JCC»CClCCtCCICCICC;CC«CCICC«CClCCICCICC»C 

Q 0.0.1 riYTS.A I 

0005 INTcGER 1 

0006 I«A . 

0007 !8iANnn,*sv7) 

0000 FFiJ\C « 1 _ 

0000 RETuRr,' 

F^D 


no oof oooo 



11. [300,6]FL6DOT.FTN 

11.1 ENTRY POINT - FLGDOT 

The lubroutlne TUXtGT uses the subroutine FDLINT to determine and 
flag all dots lying within predetermined designated 'other* and 
'unidentifiable* fields. 

• Calling Sequence 

CALL FLGDOT (NOFLD , NV , VERTEX , FLDLAB , DLABEL) 


Argument Type Dimension In/Out 


NOFLD 


VERTEX 


FLDLAB 


DLABEL 


MAXFLD 

(2,MAXV, 

MAXFLD) 

MAXPLD 


NDOTS 


IN/OUT 


Description 


Number of fields. 

Number of vertices in 
each field. 

Spatial (pixel, line) 
coordinate of each vertex. 

Label or 'type* designator 
for each field. 

-1*D0 field 
-2-DU field 

Analyst l 2 tbels for each 
dot. Category index 
numbers . 




•s FlCO!*T.rTN 
0001 

c 

c 

c 

c 

c" 

c 

c 


JL1I2?.‘.0JL 


.n-AMO-Jl 


..••AGEa-., 


SUft«'’gTi*4E f|.GD0T VERTEX, Ft.Dl.An, "LABEL) 

FLaOJ 0?TS whJC‘- Lie WITH!" D0/CU FIELDS 
WBlTlES ijY !>yTH _ . 

NPFLD - f'2. fllLk ' 

NV - N^_, *r vritTlCfcs FIClO 

vesffX '. "spatial ((MX^LiLI-'') C.^2n01NAfE rF EACH VERTEX 
FLDUn - Th.'' CHAnACTfe?: LAVEt CCn FH DU) FPB EACH FIELD 
DLA'jFL • CATES, '•’V ImDICaTtH f I'.fi EACH QeT 

OOP2 IHPLICIT riTPCen (A*?) 

000:< inC|.l-DF •S'^lt3'lD,J3CAH«;PA«Ay.'.I»JC' 

0004 » PARAHpTrH •'AXCATtf" , f’AtS’.ifiJef i "A YCmN« 4 i \P1 Xst96j NHN«117, HAXrtDsSC 

"• l,HAXV»li,lJiCli:TS«'2fi9i:'LSi'lP8lO.LSSKlP«iO,HAXA'CC«6,“AyACC«4r” 

• 2N2SPt-r.86»>^'*0TKr'elC 

Dl‘'(-/ Si";'' AV{f'AXFt.r>» Vb'BTt:X(2,''AXV,HAXFLD)i 
1 FLDLAH<MAXFL')),Li.At 6L<';0.‘TS),FL(«)iL3<HAXFLD),LE(MAXrL0) 

DjHE'tSl.”'' SatHAXrur') .Set^'AYFLD) 

_R£SPT_aLL opts with cr__r^ Dl' LA3EL 

02 'iC' !ii;^C«TS 

IF (nLApFLU) ,E0, -1) DLA'1£L<I)»0 
IF (CL#tiEL(l> ,E0, •?) DLAr5i.(j)aO 
1C C0f.Tl\UE _ „ _ 

Da 15 liliMAXFLL 

LDiXlpJOnfl 


0C05 

0006 

■nrocr 

cooa 

0009 

0010 
0011 


0013 LE(I)*0 

0014 __ __„_SB<1)«10D0 __ _ 

001i> SE(I)*0 

0016 1? CavTiMwc 

0017 D0 20 J*l,'JaFLn 

._00j?l MyT«vv(j) 

0019 0p“20“ 4Bif'.'vT 

0020 LB(J)«><i;.(l.3( J),Vt.’Tf;x(2,K, j>> 

0021 LE( j)«iaX(L 6(J) I Vc'’Trx( 2,K,j> ) 

• 0022 Sc«(J)8Mn(Sfi( J) ,Vt-'(T,-X(l,K,J) ) 


0023 

_0024 

002’5‘ 

0026 

0027 

002a 

0029 

0030 

"OO'Jr 

0032 

0033 

0034 
0030 


2r 


sfc{j)«-'4>'<sE( J), vc'>Trxa,K, j> ) 
javTijv'je 
NP*\ 


nSSKlP 
Da 50 ysi.'iaFLn 

DaT.O' ■" 

oa 40 LlN6#lO,‘iLlN.rLSKlP _ 

D0'3O 15*10, NPIX.iiSSKlP 

03T*(LlNF/PL'v<lP-n*'P*lS/rS5MP 

Tf'Trrjfc' •IT'. uT(j> r g';''t;!'"4? 

IF (Lr^e ,0T, Lf-{ J) ) GO 40 
IF (IS '.LT'. Sr(J>) O' T.-J 3*' 

IF (IS .P*T, SctJ)) r, ■ V/i 3'1 

CALL rntlNT ( V=KTEv ( i , l , J) , \ V ( j) , Ft, 

LJ^if ,_\SA2‘P, JJ) 

jo Tii,jjV2 

(IS .LT, FLU)) U'1 T0 3^' 


0036 03 

0037 IF 

003a IF (IS ,ST. FL(1*1)) G' 

0039 DLAntfL<D''T)»FLri.Al''( J) 

0040 3P CPVTIV'T 

00<1 4-' C3f'TI ,Vfi __ 

0042 ■ 5r caNtifiUp-' 

00«3 RETyOf; 

0044 END 


11.2 ENTRY POINT - PDLIMT 


This subroutlns rstums the pixel intercepts on a given scan line 
for an irregular field with a maximua of 10 vertices. 

The pixel intercept, X, with the scan line L and the side defined 
by vertices (X^,Y^) and (X2#Y2) is calculated by' the equation: 

(L-Y, ) (X--X, ) 

X - ± = — ±- + X, 

(Y2-Y^) 

The value of X is computed as a floating point number. However, 
the actual pixel intercept must be an integer number. Therefore, 
if the fractional part of X is greater than one half, then the 
pixel intercpet is the next higher integer number. If the fraction- 
al part of X is less than one half, then the pixel intercept is 
the next lower integer number. When the fractional part of X is 
exactly one half, the integer pixel intercept depends on the 
direction of movement from the point (X^,Y^) to (X2,Y2>. If Y^^ is 
less than Y2, the pixel intercept is the next higher integer. If 
Y^ is greater them Y2, the pixel intercept is the next lower 
integer number. 

After all intercepts for a given scan line have been determined, 
the intercepts are taken in pairs and all pixels betr--- ' n and 
including the pair of intercepts are included in tl- 'id. 


Bxas^lftt 



For scan line L, all pixels between, and Including P^, and ?2 
are included and all pixels between, and including and P^ 
are included. 


o Calling Sequence 

CALX. PDLINT (FIELD , NPTS , FL , YLINE , NSAMP , J J ) 


Argument Type Dimension 

FIELD I (2, NPTS) 


NPTS 

YLINE 

FL 

NSAMP 


I 

I 


In/Out Description 

IN The vertices defining the 

field. Pixel number 
followed by l:.ne number. 
The first vertex roust 
equal the last vertex for 
field closure. Vertices 
must be defined in a 
clockwise order. 

IN Number of vertices (in** 

eluding closure) . 

IN Scan line number. 

OUT Array containing the 

ordered pixel intercepts. 

OUT Total number of pixels in 

the field on scan line. 


OUT 



JJ 


I 


The length of the array FL 





reHTHAM IV*PLUS V-J?-04 14123113 3l«AU0<>77 PA#E 

/l,00«T..n:i /T.MU«C158 /j!? „ -i. -r.-^ — 

0001 s«;;«M 2 uTiNg rnt.P 4 TCPiHkn«r<PTSirLiyuNp.<vsAMPijj) 

Cl . 

Cl THIS SU0P2UTIAC- v?|U RPTUA*' THp P|xfiL NUMBERS Pf THRSf 

Cl Pixels ijN A A sivfc?.: use t«at ahe caMTAiMeo within t«e 

Cl BBUKt’APlES er A NfA-RECTA-.CIlAM FlclD 


INPUT . flElP . 


ARTS 

TUNE 


►'0N-P6CT,^.scgLAn rieu) tarlp 
A ll the VcRTickS ^UST BE IN CUCKulSE 
fcsCER AMD THE last VERTEX HAS T» BE EQUAL 
T? THE Pl'-'RT VERTEX r»>R FIELD CLOSURE 

JMtJ’mST V£RlEX„aUSl.JlAy£-ill'ilHUH 

PIXEL VALi;E 

Nf CF Ptfl-.TS ?F THE N-R Fi:.«.D 

scAH li'E M'Mpen 


iutput 


FL - ARRAY C-INTAINiAC the ARDEREP PIXEL INTERCEPTS 

-NSA!lP_-.Ji:L. PF SAIPL^.S CBUAlMOati . 1 HE_£ 1 EL 9 l 3 £ _ 

A 5IVC.M Sc AS lISE 

jj - T*'fc lencT'^ ’F The array fl 


PAPAfETtP fAXl «6 

OlMfMSl.-'f. F IPL'U ?•' PTS J I ru WAX I) 

iNTECt; R„Xi , X 2 , VI , Y 2 i> X • f L # F I 

INTETep XN‘* 1 ,Y%H) »yf P 2 ,YNP? 
|FCnPTS.C 0 . 2 )D? Tr: 35 

:• «NE vertex field 

L» VLl*'E 

DO 7 S • liMAXI 

. .. J FUNLJI„P_ 

NPTSP » SPTS *1 

I • . .... 

JJ • C 

100 XlRFIELI'tl.n , 

Yl«l IfrLD< 2 .n 

J » J»l 

Xj>«Flf:LD<l.J) 

Y 2 tF!EL"t 2 i J> . ... 

IF ( I ,eo, I » .CP TP 200 
IMJ ■ 1-1 
XNHieFH:LD<lil''l) 


0021 ... 


.vNfl»r.tEL0(2U“l) 

0022 


T' 300 

0023 

209 

XNwi«r IEID(1#NPTS£» 

0024 


VNWls^• i; L0(2,SPTSE) 

0025 

300 

IPl * I-l 

0026 


XNPl*FlcLDU#lRl> 

0027 


YKPj.f irlC(2« I°l) 

002P 


1> < I .IS. SPTSE) GP 

0929 


IP? * I»2 

0030 


X.\P2sFIRU0(l, P2) 

0031 


YNP2*Flr-LD(2i 1R2> 

0032 


aa T* 5'jo 

0033 

_ 4 i:_x_N p.^ « r 1 1 L 9 1 1 1 2.> 

0934 


VNP2»rltL0(^.2) 

0C35 

500. 

IF ( Y1 .£Q, Y2 ) m ' 


>-iT 


IV-PI.US V 02-04 1 23 113 31 «AU 6"77 

t 03 « l^(a.r:o^y^».A•JO,<v^.E<J•v^p^>> '»<■ ta 2 oao 

0837 lFUU.CQ,Yl),**i 0 .<n.E' 3 |»^^'l»> Cn,T» 2000 _ 

0038 Rk ■ t 

0039 . RXl ■ Xi _ „ . 

0040 

..0041 .i?.Yl_L..n 

0042 PV 3 ■ 72 

0043 OX* ■(<(Rk-RYl)#(py 2 - 4 yi»)/tRt 2 .qYt))*RXJ, 

0044 XX • <MX«.$ 

004 $ ir<yi,UT« 72 ) 55 » T*' $10 

aci 46 

If J < HA*-AkiaLlA^3J-ltilt*l 

SIC Crf'jTlS'JV: 


PAGE $ 


If (<X)f.«fe‘. 71> >’D‘, <XX ,1.6, »?) > C« T8 800 
IF <(XX,U6, XI) .AM)', (XX ,6i:, *2) ) G? TO 600 

2000 I « 1*1 . - 

ir ( 1 ,CT, NPTS6 ) g;? TP $ 


600 


IML.Le.Yi.A^D.L.GP.YZ) TC 700 
ir{L.L?.,Y2,A^b,L,CF,Vl) GH TC ?00 
GC Tt’ 200C 

70C JJ • . - 

rUJJ) a XX 

Jf {, JJ ,E<<. 1 ) GV^XJ^PO'!. 


lT’(‘ I 7M;*. KPTSi? i n? tr lOOO 
IFtL.'lP'.Y?) ca T? .3000 . . . 

XNMlaxl 

YI»“.l»Yt , 

X1-»XJ' 

Ylsy? 


x2»riEun(i,2> 

Y2*ri6Ln<2,?) 

Tf 3001 

3000 If < L Y1 ) G.* Ta 2C0C . . ^ 

30n IF (<y1,lT, Yi,-U ,A'j3, <Y1 ,GT. Y2 )) 03 TO 4000 

IF (lYl ,GT, Y'Ml) ,A^C, (VI .lT, Y2)) GO TO 4000 

Oa'ti"2000 

4000 FL(JJ) • 0 .. .. „ 

JJ • JJ-1 

CO T'» 2000 .. .. 

' 1000 If (L.'.F'.Tl) 6f) TC’ ?0b0 
IF(xl,GT.X?) Gjl,Tk_COOC 


I 


0078 

0079 

0080 

0081 »L(JJ) s XI 

0082 Grf T." 3000 

0083 7r^ JJ • JJ^L 

'0084 ■■ 

008 ? 

0006 
0087 

ooea 

0089 

0090 

0091 


Tf <Y‘.'ri'.Tl'.Yi) Q-'*’ U 6003 

IF ( Y'.r2 ,GT, Y? ) G4 T' 7000 
JJ a j.t*l 


FL<jj> • Xi 

t JJ4l 
FL('<*') « X2 
JJ a M- 

r .2 TX 2000 

Of.OC IF. ',l.Tx.Y? .» .ca T?_2000_ 

jJ • JJ *1 

FUJJ) a X? 


llj 




ORIGINAL Page is 
OP POOR QUALITY 


1412.^113 SioAUfi 


* 


ff^TSAH IV-PlUS VCS-f»4 
.fkCDPt«Il3 /JSi.vL<*CKSZh» 


0092 2rC0 

0093 OCOfl If ( .LT, VI I 0* T3 5000 

0694 If < V'V? ,6T, V2 I GA T? 2000 

0C95 JJ • JJ*X 

0090 PU(JJ) > XP 

. 0097 I» IN‘'l5L»ea*2IElUJL*Xl 

0090 Ci? T.* c3C0 

0099 9900 If I V' P2 .CT. V2 ) C? T'’ e0«0 

oiro JJ ■ 

OiPl FLJJJ) • XX 

0102 hh • jj*l 

.0103 f.Ll.1liJ-»X2 

0104 JJ ■ 

0105 00 TP 2900 

01P6 0900 >iJ s 

0107 fUJJ) » XI 

0103 UP TP ?090 

0109 5._N1'!S1..». JJ-1- 

0110 97 29 *.l ■ l•^PTSl 

om - - 

0112 54) 29 Nj • •■'iPliJJ 

9113 If ( rt(^I) • fLtNJ) ) 29|29 i29 

OIK 2A MTEkP » flCM) 

. 3115 f U Mi_* . f L t NU ) 

0116 FUnJ> ■ NTtPP 

0117 . 29 Ce'ITl.*;'JE 

0116 -iSAMP • 0 


0119 DO 39 'i • l»JJi2 

> 0120 '•N • N*1 

JI121 NSAr.P„»_''S*JfP*{rLLV>;).rr.Lt*:I*A).--.. 

017? 3C CWTK'lg 

0123 „ acTii»N 

0174 3S l» (VU"fe,MC,riCi.n(2,l> KETgfiV 

. 0125 .. r|.(i>8F li) 

0126 ru7)*rifcLn(i#n 

.0177. 

c;26 JU «2 

0129 .. ‘JeTgPfi 

0130 EN5 


/''?/OVv. 


O, 


p > 







12. [300,6] FSTVID.NAC 


This program is documented in reference 1 and in appendix A. 
It has the following entry points FVOPEN, FVDSET, FVREAD, 
FVWRIT, FVCLOS, PVDLTE, FVWAIT, FVRWND. 



HFSTVID -- «^aST V’ttvi SOPPPST SU _ _ •'ACRc DIO.... 5j-AgQ-77 14I?3 

table a» t •^TE^ts 

• 

1- 2 !NThi‘l)l‘wTIPN 

1- A4 DHTa 4‘^tA 

1-169 rv'Pf^ - ASSIG^'S tu.'l A%D 2PE^5 FlLEi 

_ _ i-3?3 FVl'SST P'T'TPR T' M XT F£C?KDi 

1-36? FMTLi^T Ci-:T Vw'J /r UArl (t = C7RD 

1-383 FVDG*^! -- KPTUK'S Pr*I‘«Tt:R T-* NtXT PFCDRD 

1-4P2 FV*'X«C -- C*l.OULATb :<fw V.'U.'c ZV VbN 

1-429 ryPtA'j/PXWRJT -- -\FA''S/-.-ITt- RL?CXS FREV/ra DISK BR TAPE, 

i-dTii rvci."s -- CL.'SPS HLE '"'■'J disk p-r tape, 

. _ 1-790 . rypj.Tr; -- 'JElETES an '.iPfe> ■Ii:'' FIU5, 

1-841 rv-AlT -- UAITR t.,S Cw^-'PlE T I I'N 2r 1/p, 

1-866 rvR4‘:D -- Rfc^IMDS TAPE i!A Pi'i'TS T« START PF DISK F|LE, 

1-90& prSf;-*- 1 -- PARSES FILE 'A't A?D STORES I' IW DATASET DESCRIPT'IR. 


.TITLE rsTvto — Past vioe« supp0ht suanayiises'. 

I.MTR3iUUCTlB.>t - 

1 

__4 lHiS_£AX;iCAfia_4C_Su3R2U-'U*i£S_PR2V.lDEi-F-ASl_J/H)£a_4/a J.y^\'C. T l f>?S . 

I USING HAG tape 3*) I'ISK STAPAGE HEDIUm, 

- 

I THE rULL^VilNG EhTrY O0INTS A^E PRfflVlnEni 


rVjiPpN - ASSIGNS A LUN T ' T^.E nEGtGN.TED OEVICr: AN*'. 

lX.Jw3T_MAG--TARe, -fcPcNS Ti)i r.sSlSNATED r ILC 2N 

IT, TM6 NUK?)eR THi-: NfXT r,L«'CK TP BE '.JHlTTEN 

- . IS SET TA 1 , . 

FVOSF.T «■ SETS The MUMBER lif THE S.6YT VIRTUAL 3L5;CK 

(DISK 0VLV) T** 5EAO/AfilTTr\. (ALL3WS An OFFSET 
S£fi_uSEa«UR44Xfei;.-UkBeL -HtaCK S , J 

FVREiD »• reads THE EESlGt-ATED NJ.'.BSR if BYTES BcGIWlNG 

WITH The next virtual eiecK, 

FVWRIT ' writes the DESIGNATED Ni'H^E'? ?F BVTES SEGINN1N6 
W4- TH .-l. H E-A.EXT-A/.t.RT-UAL-SUCA^ 

- . (FvREAD AMD FV.iRlT 32TH INC-cMEnT THE "'JEyT VIRTUAL .. 

BL0C< N0H“ER PY The APPRZPRtATE AhSiinT, DEPENDING k'l^ 
THE NUhriER aF BYTES TRANSFERRED, > - - 

FJ/CLnS-g-lf— I hE DESimAJED .LUN-J3-AS.;tGKED..T2-MAa.TAPE.-JkN_ 

end 0F file is JRITTE'. (IF •’I’FKED F.iR AUTPUT), 

- . IF ThE LUN is assigned T0 DISK, THE FIlS IS CLOSED, 

- . FVDLTE - if The DESIGnATPU LUN I'■D1C^TES AN 7PEN DISK FllEi 

THE FILE IS OELF-TED. 0Th£»kiSE, ND ACTION DCCURS, 


FVWAIT • WAITS for C’HPLETIDN ?!F THE LAST 1/3 PIPEHATIPV lON Tn£ 
specified LUN', 

... FVRHND -.IF The SFECIFIED L'JM DE.T15N\TES .'IAQ TAPE, THE TaPE 
IS RtHBUNn, IF TEE LU- ';tSlr,\ATES DISK, Th£ VIRTUAL 
BLBCk. JiLb'ia£R..2F_JrH£..K£X.I.KE,f:k<aC..i S_SEt..I 2 1 . 


J0HK T. DALTDN C20E 933 


24 FEB 1976 


,SBTTL Data /REA . 

.MCAa OIOSYj,FDiFSL,OlOi,DlRS, aSTX^S, alUNI, ALUMS 

.ilCALL Fii?DEliiFi’AllULuFD=lC?.A,F.Dt';<LA,rU2P.M.£SgS2?. 

, Mr all MMOLR^iWTSEf ,MJ'UT$,aPEM.CL45SE? 

..IDE.'T /XCl/ 

OIKSVS I DEFINE Qlti SYNaflLS 

FD.?rSL I DEFINE FDB /FfStTS Lv’C*LLY 

NLUNSCI ,H*Hn N'UUnS 

._JVLU.NS«2a J._DE^X^'E.NU.^'aE.R..?F..LL'^S .ALL0,A'ED.. 

KFOaSilO, I DEFINE NUHmER OF FnU«S ALL3CATFD (a MAXIMUM 

1 number Sr FILE'. AT PNE ti«E), 


DSDESCI ,kOR3 0,0,0.P,?,P I DATA S'-! CESCRIPT0R, 

OFNami NH'ILKS G3‘»DSTUFr,UEC I DEFAULT FILE NAME BLOCK 

J.._ AHCUMbMT.LlSL FO ''.PRSF^'M. SUDR£'JTI.\£, 

PRSFNAJ .r'OR'' t),<',n,PSnt«:C,l"STAT,0 

I THE FJLL’WlNC. Ta’’lE CONSISTS k'F FLAG BYTl-S (?NE BYTE PFR LUN) 

) AND THEIS BIT ASSIGNMENTS, 

I ORJ(jY|\) A r 

FVPT.DaEOO I BIT 7 a 1 IF FiLv |S CpEN, QP 

FVBT,A«OCll I PIT n a 1 F/R ' RITr, 0 F.0R REaD, ^uOjR < 




rVBT . D «002 

rVBT . 8«004 

I 

, DEFINE Flag »yT6 fur each LUNi 
FVflTt ,RSPT NLUnS 

illlE Q 

. EnOm 


I PIT 1 ■ 1 F. 1 '< <A 3 TAPEi T F 0 P DISK, 

I BIT-2, « 1 IF file has been ACCESSED, 


..I . 

ALUMt 

ERRAR3I . i,o .. i Ll^T rc‘< su^R^umt 

WAITARI ./.MPT 0,0 I ARGU-E' T LlsT rSR FV- 14 IT 

—QI2i 0-,.D,(5.,(),J2SlAlj.Qli*AST,<C,OiO. J,C.O>. . I DP9 Fi)R Ol'j 

FU^CI .Vi’RO 0 j TE'iP ST,?^A'^l: r 1/0 rj.NrTlS'^ r^OE 

NBYTESI ,/^Rr 0 I TC'P ST^V.-;c F’R TRANsoeR LEMG’H 

KTSEJ HTSE» 0 I npP T 3 waIt pu» PV?NT FlaG 

WTSE 30 I HTSEJ 30 , I PPB T? r,AlT rpR H 0 C 0 MF>LFTI 0 V 

uaiir, MI. IT... STPl,PARAM, 0 ,C^NT,SyL- 3 G, 1 , ! JSTaT.C 

L,0 l..P.Ai’.A.-i£,JE.l. LlST .F0R .M? JitSSABE 


AL'tNt 1 ,SV ,0 
,X:*R 0 . 1,0 

./iMm 0,0 
31 0 5 -.. 


I npp re assign lun 

1 A«GiJv£';T L 15 >T FCR SU‘?R‘»UTIN£ 

I ARGU-E'T list r 0 R FV'-IAIT 


- - - - J PPB T? 

M 0 UTI M 0 UT? STPl,PARAM,O,C 0 NT,SyL- 3 G, 1 , 0 , ! JSTaT.C 

—EISA.*!! — D .,0 l..PAi’.A.-E,JE.l. LlST .F 0 R .M? -fitSSABES:i 

I MESSAGE PUPUT fjRvAT STRING PfcSCPlPTirR P^nTeRS, 

STRll ,H'!Rn STPS 2 -ST.OS 1 

,>i:^Rn STPSl 

STP 2 I. ,a‘.?RD STPS 3 -STRS 2 

,W 0 R 1 ST'^S? 

-SlfiU -, X 2 RQ SLI.RS a-SIrSB 

,W 3 Rn STPS 3 

STR 4 I STPSE-STPS 4 

,K?Rn STP$A 


,K?Rn STP$A 

STRSII ,ASCIZ /FVSt’E^' - FILENAME SVNTAX FPo-'RJ XVA/ 

STRS 2 I ,ASCIZ /FVjioe ‘1 - rn,E ai.HPaDY 0 pEM f«R LUM XID/ 

sjpsjj . Asai _ i £ Vip £.^-_. ALL _» i 3 JL . riii »'.‘ 5 - j . Pi -- ih _. Lse ,_ iy^=s 

STRS 4 J ,ASC 1 £ /FV^PgN - lUN Xin !S T ^-'<3 LAKGc, XIP SUPP 7 
STRSF.I 
I 

generate 1/0 STaTuS pl^CK FOP FaCH L!JN ♦ 2 nE EXTRA (FIRST ON‘ 2 ) F'»R 
general !JSc» 

_AJ-L..,i(.ER.T NLUN.S ♦.! 

u( A K n AY 


^ 1 ?/. 

RTED,/ 


IDSXAU. 


, W?RP 
iENDM 


9 IT V I 

generate table containing virtual PL.-'CK nLHEER 3 F next ACCESS F 0 R 

EACH H'N, 


!iXJM£»_,- 8 £P.i NLUAtS 


,H 0 RD 
, 6 N D 

generate TA 9 LE CSNTaINIn'S VIRTUAL PL'^Ck NUMBER (V 0 N) 2 F NEXT 
ACCESS F 0 R each LUN,. 

SIfi£CJ...,.RCP.T NU).\5. 

, w0Rn 0,0 

,END!' (j 


0.1 


Nf ; 


0^ 


WA .' 


_ f . sasi ! i .„ 


FDR ALL 13 CaTI- 3 \ TABLES, 


-L ..N t). .RE C, 2 RD...I / 0 j;P_E R Al 1 tf N S , . 


foo, 


A . 


i:R LllN), the LI'N is '.iSED TO 
.’aTains The inoex in the 

iCt ; T'lO T . jaT iMk ' aTl .» 


LONFnB IS an jNDFX TarlE (OnE py’E PcR 

The Table, T‘<r. c •rresp/.n-^ing ent^y c-’n ,, .... 

. TDPFLG AA'D F~sUST Ta^>LFS i'F TH-= rni in t?i: F-’R T-tAT lU^, x 

CONTAINS -1 If A FILE IS NOT CURPE'.T 1 .'' CPENEo F 2 P thaT L'.'Ni) 

FDPFl.G IS A t.flE CO'iTA 1 . IIiC JJNE BvTf t;r Each f P'J FOR wHICh ST 
has FEEN RFsFrVEF, Each nYTc C S^ESPO'oS T’’ AN FFU AODRESS 1 '' 
FORLST, P.ACh RYTE C 0 ' 1 TA 1 'S 1 IF thF C<'RFfSP 0 ND 1 nG FDR IS I^ 

USE anD 0 .*TH£RXISE, 

A .A 




INOCX 




Race 


I 

I rOU^T IS A TaPUE *3r aNt*w?i?D rOl iOOf'ESSES C0!»RES“JJNDlNr, Te TM£ 

I FOB FLAC EMTRlfcS IM FD«Fl6'. 

I 

IUNFD8I ,REPT NIUnS 



-«3y.TE- 

^ -fl ... „ 



.ENO« 



FOBFL6I 

.HEPT 

\fdbs 



.byte 

0 



,ENDm 



1 


define FntlLST ENTRY 


. — 

.~,HACn(9 

F.OBlF. A 



,W'’KP 

FOB' A 



,END>‘. 



tgN*l 




F08LST1 

.rept 

NFOBS 



fdrlf 

\NN 








iENOk 




1 


MACR? Tfl RF:SERVE AM FOB, 



, macro 

fdpdef a 


FOB'AI 

Foncrs 

1 ALLBCATE 

SPACE FJ!R fob 


fuatfa 

R, FIX, FD.BLK, 512’.. 0,12, 

1 file aTTPIPUTE SECT, 


J.J)nCSA FD.Hi^M» 0.0 iRECJ.^D .\CCESS ScCn.-^.N 

FUBKVa 0i5i2,*0.ii PSTaT ACCESS SECTIBS 

FD5!PtA iDSDtSCiOf NAM iFU.6 i-'PEN SElTpN 

tENDM 


NN«1 . 

.Rfpt 

.fDBDEF 

nfobs 

. \N*: 

NN«MN*1 

t 

1 

,ENDm 


define 

Table zf event flags fzr 

EFNTAbI 

.KEPT 

nluns 


.BYlfe 0 

iEnD'' 

I 

tSBTTL Fv^pen - ASSIGNS LUN AND ICPfeNS FILE. 

I 

I ENTRYI call. FV?PEN(ITyPE.LUN,F!LE,vC,STAT,EF C.N"LKS3 ) 


1 

WHER^F ITYPE 

8 

Type KF access <1s:^EaC,2«lRITE, J*M i'blFY,'4suPbATE7 

1 



5SKRITF LITH.’UT TREATING NE»^ VcRSPN IF FILE 

1 



already EXISTS) 

1 

LUN 

a 

L0GICAL Uf-IT N''y<-’E7 TZ ASSIGN TO FILF 

1 

file 

j 

ASCII DEVirE/F ILFMMp 



NC 

s 

NU'*dER J)F CHARACTfc -b I'< 'FILE' ... 

W0RD IN which stat .S P RtrURNED FR2" THE FDB 

1 

stat 

a 

1 



(Erwr If NC cKPL'v), 

1 

EF 

8 

event flag '"li.r'cH T'/. Be USED FCR SVNCmRBV I ? aT I 

1 



KF I/i’ C^UST Be i.'\!3UE f TR LU.\), 

t 

N9LKS 

8 

Number of '?i2-HYTf; bl-cas tz all’icate (RfikIBeo a.': 






.’ITTPE' « 2. AND Dt-Vic^ IS.DlS'O, 


I 

I This SUdR^nrlNE calls •P'JSFNM' T* pass TmE file NA«£ A^’D 

I CaNSTRUCT Tm£ OaTASLT nESCRI»^T’K. Tr.c lLN IS ASSlC'en Agn, 

I IF The device IS DIt>'<', T't FILE IS Jsf.fco, IF :i?>;N!\G a cISk 

I file F^R BUTi^oT, TMc SIldSeUTI aTTLvPTS T.1 4LL/CA»c C 'NTlGt.'’'US 

J SPACE, IF TrilS FAILS, 1 T. ATTEMPTS . i: ALLOCATE NJM-CL’MIGU^IIS 

I SPACE, 

I 

I 

I the F3LL.'’WInG EHReR CgntS ARE RETURNED I\ ‘STAT', 

PRSERC*-!, I FileNa*'E SYNTAX ERPJR, 


FILi3»»C»“2, 

N3F09C«-3. 

e|GLUC«-4, 

0PERRC--5, 

I 


I riLg IS already PPPN F-R LijN, 

I all fdb's are im use, 

I LU^i IS T’t4 LARGE*. 

I ERRcR RETURN FR^M OPEN. 


FVPPENn 

1 

TEST 

M0V 

CMP 

BLE 


_JMP. .. 

SSI 

bits 

BED 

JMP 

lO'l 

M0V 

M0V 


Mav 

M0V 

M0V 

JSR 


9A(r5),R0 

P0,NLU‘-SC 

5S 

91GLUN... 

AFVBT,e,rvRT-»l(R 

10 ' 

rii.3f'N 

4(R‘>>,PRSFMA*10, 

6 (R 5 >),PRSrA'A *2 

fl..(Rt>)»P‘’SrNA^4 

» 5 .-(sP) 

«PRSFsA,R 5 

PCiPPS^NM 

<SP)*,R5 

IflSTAT 

.205 

prserr 


I GET LU\ 

I TEST r»R greater THAN VAX ALLEwED, 

1 LUN Ta:i large, 


iSAVh 

(CALL 


I iPCN? 

) branch IF N0, 

I FIlE ALREAOY iJPEV' 

J SET UP ARGUMENT LIST F0R 

I PobPNM, 

R5 stack ’ ~~ 

PKSFNM T|A parse file name. 


IREST0RE R5. 

iCHECK F 'H Syntax err0R, 

J BRANCH IF, N?5NE, 


33S I CMP 
. »NE 
JMP 

C*1P. _ 

0N6 


9 DS 0 EsC*P,«"HT 
4 01 

fvptst 

FDSaFsCt. 2 , 

disk 

FVBTST 


IS DEVICE mag tape? 


DISK DPVICF ?R N-x device SPECIFIED. 


._DLSK«. ,M0.v_ P4 (r5),R1 


search list 


JG 6 T_LUN .. 


CLR 

TSTB 

BEG 

INC 

CM.P-. 

3LT 

JMP 


R 4 

FDRFLG«R4) 

301 

R 4 

.R 4 ,«::fP 3 s.. 

2 QS 

N0Fd‘)S 


available fdp, 

lL«.JP IN^EX 


FDP FOUNR - ;U CONTAINS 
iNca fdpflg<h 4 ) 

M0V P4(r5),H1 

„H 0 Vd _ R 4 ,LyNFDBrtniK 
ASL R4 

MgV FD'’LST(R 4 ) ,RO 

SET UP REMAl’liNG FOe PAf 


RI.F.LL'N(RO) I 

«FP.^C*F.FACC('’t) 
™2<RS),,«3 . I 

405 » 

«FP,MFY,F,FArc(Rn) 
9‘j' I 

P 2 <R 5 )|A 4 I 

50' I 

^jpPiri.rAcc<KL’) 

955 I 

P2(fi5)»«2 I 

AC' 

«F '•■.‘'RT.F.FArCCRO 

no' 

» 2 (n 5 ),Ai 5 


ITEST FD-i FLa« 

lIF C, FnS IS AVAILABLE. 

I NOT AVaILA'^LE - TEST NEXT ’’NE. 

J .HAVE ALL Fl’ti'S BEEN TESTEW 

I IF N?T, -^LPtAT’, 

I M 0 Fru available 

INDEX, 

llNDICATr; FOR IN USE, 

JGET LUN 

jSET I 'Ut;\ ej FD‘J F0R lun 

I GET vuV'D I'.,3EX 0F FD0 
lAPl'PESS ?F FCO. 

AMETERS. 

I M0VE LuN 

1 JSEI tP F0R READ, WRITE, •^R M?Oll 

I ARE VP ;,?£• JN'G TA '“ariFY? 

> IF N2T, Ti=ct F-iR MroiFY, 

A) » YES. K0VE M0DIFY C^DE T0 FOB 

I OPEN FlLF 

I ARE WE ?PE"INC T? update? 

I IF N'DT. TEST F.)!R WRITE, 

L’). . J update C’OE, T0_FDii 

I PPEN FltE, 

I are wfe i'PL- ING T3 WRITE? 


►•ZVt WRITE C^OE T0 FOB 
U^Tfe CB write a *JFw file 


6Nfi 

MHva - #FS,UPD«r,rACC(KC) 1 YESi k 3V£ caofe. T? fDB, 

BR 95* I FII.C, 

- BOSi . CMOS (R5)««7 - . iTFST !.eUAS aRS'JmEMT 

BhE 9SS 

* I ' ‘NPLkS* specified and PPEM.'yG*TiJH flUTPinr^T7E«FT’ AtL3C*TF 
-.1 MNTifiuaus filh. 

I 

-MflV 914 , <r5),F,CNTG(3C) 

5»PFN1: RQ 

4 .l£Sl-*FJR-^Pr SB., -I F-AlilAi£*-KtIUfi.N _aM1_J ^D 1 CAJE-SUCCt SS^. 

TST3 F.rR3(R0) 

BCE .D8P^D 

CHP 92<R5)i 45 I IF fcRR.'R CAUSED -^Y ITYef'‘j Af'I' 

. E.\E 90S I Flifc already I‘. rxiSTEr.Ct, 

CM(»B *|E,Di;P,r,FHR<RO) J IG'.iJPG. 

El£b D3DA.0 

I EH90P. attempt T? ALLBCATE NJN-Cl’NTIr.UDLS FILc. 

- - 90SI MOV 914, (M5),r,CNTG(R0> I SE<:T3Kg U RL-TC^S 

NE6 F,C\Tg<R0) I a-'.D VEGATE Nf’N-Cr'NTIG 

. -9S«1 0PENT - RO - 

TST8 F,Cr 3(R0) I TEST F''P fcPHpR 

EUiS ilatL‘4J 

Cmp 92(«^))*i»5 J if feRfi’R Caused ay 1 TYp£sS AND 

— DN£. lODS J Flue C:».ES \8T EXIST# - . 

CHP0 AiE,NSF,F,eRR(PO> I Pf-'E-N FlUE F0R WRITE 

BED 55S . - - . ... . - . 

lOOSI M0V *ZPERRC,feiO, (R5) IlKCltATE ?PEN EPR:?R 

JSR BC.FJ:s£Ba i-CALL-EfiJL:fi- J £SSAG£-SlieSiiiiT4A£ 

RTS PC I RETURN 

I * mag tape - set Flag byte bits an-' re^wra, 

FVBTSTI m,5v PAIHi'JiKl I GET LU ; 

» BlSB #FVMT.D,FVPT-l(f,l) I INDICATE MAG TAPE 


J file successfully PPF:NFD. 

D0PNDI bISB i»FVi,T.0»FVPT-l{Kl) iSET BITS IN FVjT 

Cmp P2(RS'»*2 

. bne ret 

BISB 4FVdT. A,rVPT-l<Rl ) J INDICATE CUTPUT 

__^E.Tl Cin Al{L.tH5l. I. INDICATE S'JCCESS, 

ASM «2iRl I GET Db'iBLE-'^RD INDEX 

- CLR LSTREc-2(R1) 

CLR USTcEC“4{H1) 

Cur NX T ft F C ( R 1 ) 

M0V #1#NXTHEC"2(RIJ I SET virtual RL^CK « PF 1ST REC 

a23 _aj l_C£I_LUL 

RiOR Rl 

.. MiJvB 912, (R5),EFNTAE-1(R1) I Mev'E EvENT FLAG ‘DUMBER T« TA'^F 

RTS PC iRETuSN 

I fvppcm - eprdr handling, 

I SmVx'ETRDR IN FlTENAME'FRC^TpirF^ 

PfiSfiRRI Mfiv 98. {R5 ).pAPAh | huMrER 0F C"A«aCTEsS 

MBV 0(R5),PARA''*2 I 9(FILE' A' e) 

Mi*V «STRl,''auT»M,#)STR jF'R-AT jTRl'G ADDRESS 

,M0V ApRSEHC.PiO.IRS)... IS^:! ‘;RR:R C2CE. 

JMP M0DRT I PRINT -'kSSAue 

I 

I file already ePEf) F2R LU^', 

I 

FIL3PNI M3V 94(mS) .PARAM iLUN 

Mcv 4 STr?/'3'it^m,jist» ifdr-at stri-g address 


MjJv ISPT bRR^R C?*OE 

JMP M^PHT . iPRJNT MrSSASc 

. . .{ ALL rOB'S IN uSfi. 

I 

., NBFPBS 1_w^V- ?IiPJ)5itP.ARAtl j...NU;!iI£iU8f_£fiaiS_ALL^J!l£i}.«. 

MRv »4(i<f»)#PAHAK42 I LO'! 

Mijv «STR3 ,«(J'jT»M,i5ST'? 

MJJv «NCr'53C,!HO,(r<5) I SET 6RR0P C0O6, 

JMP NSPRT 


I 

- 

I 
I 

91GLLINI M,1V 
N3V 
M3V 

Ji2\L. 


'lun to? lamgp.'. 


34(«5)|PARAM ILUN 
«\LU^'SiPAPAM42 iNAX 
l»ST«4,f'2:tT4M,0ST'» 
Ti3lGLljC« no. tR51 


I PK!NT MtSS'Gh Asn WAIT, 

MgPRTI Ngy ,m0|.Un»H?iuT^m,<1i.uN 

DIRS «.mi-uT,UI»ERK 

DIRS ».4TsFjO.D!P£RR 

RTS PC 


L'JN 

lF;H-AT sTRIaG AODRESS 

jfi£l_.t.Rf(2S..C2D£* 

I MBVfc LUN T0 DPR 


I RfcTyRK, 


isHTTL* PVnSPT’ -- SfcTS~P'nVTnR To”ai¥x^ KPC'^HP.' 


I 

I ENTRYI call FVnS!■T(LU^lLS•^. 

I 

I THE VIRT'IAL PL!^C< 0F THE NEXT HCC:'«n T0 PE ACCESSED 

J ?J1 "LUm" 1 .§ ^E I Ji_"_LSwZP.S>L!l.'. 

I 

fVDSETM . 

Hflv '?2CR^).R1 I LUN' 

AS« »2.R1 I GET Oei'auE-^CRD index 

MOV «<6{R5)iNXTRtC— »('U) 

J JcJ .P£.i.N.TiR, 

RTS PC 


> 

.SBTTL FVTLST Gf-T V?N 0F UAST RECORD 



ENTjiYJ_.CALL..J‘V.Di.SI.(lU.NjLS.K.''Sy) 

GETS starting V3n PF L^ST RECilRC WRITTEN, 


FVDLSTII 

H0XL 

ASh 

H0V 

M>1V 

RTS 

I 

J 

.SBTTl. FVnGET 
I 

I ENTRVI 



»2(!ii>)#Rl 

»2.K1 

LST:iFC-2(Hl).P'l (-5) jGRT 

LSTr?C”4<n1) ,»61R5) JV'N 

PC 


-V (it“fUHTs pTmnVcR T? ~.f.xT R?Ci;RO 

CALL FVDGcT(LUN,lS«»'^S«'> 

«h£RE LONsLOGICAL iMT \ 'N.'-tp 

_ I.SN81.EAST SJG, PiRT v^^l PM’-TFR,. 

''SW«**0ST SIG. PAwT i'f'vEN pointer 

LSW/“S«.' IS SF.T T” VoN 0F starting RL^CK FF NEXT «ECBRD. 




FVOGETH 


• SBTTL rVNXf^C 


#2»«l IGF.T TABi.E PrlMTr-R 
►JX1 rFC-2<N1)iR4(!;5> iG'T UGk 

KXTfit:C-4(«l)»»<.n5) iBET ^-Sk 

PC 


calculate new value er vs*. 


ENTRVI CAl.L FVNXRC<LUV»*.‘BVT,LSK,f'Sk») 

w'wfr»i N0YT « NyVi'-tR BYi*"s“wiT ARF AsV'uf TvVe Vpi ^ 

RETURNS V9V nr RFC0'RrF{'LLe“I'3 JVE TmaT IS An^UT TO 

PE kRITTEN, 




-ILUN...- 


ASH 

*2, III IPOIMTC-R 

. H0V 

NXTREC-2(R1).R3 

ICUHRB’JT VPN 

M0V 

NXTREC-4(R1 ),R2 


M3V 

»A(R5),RD 

ICET oYTE CCLST 

ADD 

*5U,,R0 

iCfKVcRT 


.„. R0 .. _ 

|T2 

CLRB 

RO 

IEL3CK 

SWAB 

RO 

iCi'UNT 

ADO 

R0.R3 

lAOU T." 

ADC 

P2 

IVBN 

H2V 

R3,»6(RS) 

IRFTUR*' 

— rav 

— -R2,»10(S5) 

INFXT PaiNTtfi.. . 

RTS 

PC 



SBTTL FVREaG/FVwRIT — READS/**?! TES ('L’CKS fRe>*/T2 DISK ’R T*PE, 


ENTrYi C4LL FVRKAD(LUN»fc;' 
CALL ^VWKtT(LUNiin. 

••NRYTES'’ BVTES a?E read l-jTiS (WRlTTfc-. 
(T?) The DEVIC'" ASSurlAT&D -ITm l/tit 
_./ZR, DISK, THE P£ AD- ( •.’RITE) IS ISTUEi: 
PLUCK NU^'SEH C:’STaIN*:D 1 'i THt «.\yT?c- 
THE "NXTPEC EMRy IS TbEM I '.CP£’‘E*'T = 
BLOCKS REQUIRE': Tj C:'NTa 1N •••ifiYTrS" ? 


FPEr. I ‘jpvTFS) 
rFcP#\eYTSS) 

FR?*”) array Buffer fr3h 

AL : NIT NUKrER *’L'’N’'. 

STA.'Tixd at THE VIRTUAL 

•' Ta-jL£ (SEE "FVDSET**), 

0 By The VU‘*3ER nr 512 -GVTE 
YTcSi 


FVREADI i 



,H0V,. 

...AIP.OVP.FUNC 

. 1 SET.iJP 1/2 fUNCTIBN 

BR 

FVPwCm 


FVWRITI 1 



M0'/ 

»1F. 'VR.FU'iC 

1 SET UP 1/a FUNCTION’ 

FVRWCMI MkJV 

p2cr^),r: 

1 get lL" 

UITU 

Arvi.T,D,rv»T-i(Hi > 

1 “Af. TA’E? 

. .. REQ 

, lOF 

, I '-Ranch if ‘ 21,.. . 

JMP 

FVTaPE 

1 HAf, tape,,, 


DISK DEVICE, C'^ECk F?R FILE ?PFN. 


I BITB 
. I'NE 
N0 file FPEN 
H0V 
M2V 
M4;v 
M|i5v 
JSR 


«FVBT,3,FV'»T-1(HA) 

20T’ 

, F.:RcE "N'5 file ACCESSE"' 
«IE.‘;LN#I^STAT , 

RS,-(SP) I 

#Ii’STAT,rR:»AHG*2 i 

fESRARr.,R5 

pCiI'ERR I 


LUS" message. 

•V'.H EPH:;S C’DE ^3 status PLK, 
SA'.'k 65. 

SET UF A?C LIST, 


, p6j\t CRS2P ml-ssaCF, 


M0V <SP)*,»<5 I 

RTS PC I RtTVRN ■ NK ?PrRATI8N Pt«r2Rf*eC 

I 

I tile 2PEW SN DISK’, W*|T rSR aNY PR6VI2US \/Z C3M«»LETiaM, 

I 

28tt H0V— -21P5>.'^A1TAR*2 I LUrJ ADDRESS 

H0V R5i^(SP) I S*''fc R5 

H8V PMAITaRiPS 

JSR PC»fVvAIT t *'AlT f .-iR \/i C'.'H»’LPTI0\ 

wav (SP)*,R5 I »<Es!rfiE ns, 

I perfbrm 012 - Set i'p dpp, 

tiav F.uNCiOia^o.urM .. . 

M0V P2{H*>>,ai I 'JfcT LW'‘ 

eisu «rVHT,ti,FvaT-l(«! ) j I-’^'^ICATE F!Lr, ACCESSEl, 

Mflv nj»OI ’!*C, 1>-'LU I Lt‘ TZ 

►• 0 VB erNTAB-i(Ri),Qi/»(;.i,‘f.r j tvs'.T riAC T:: dpp> 

H 0 V »l?STAT,fJl"tO,I/Slj J C/'-f'DlE »M/!' STATUS OI.^CK) 

ADD niJr,iz*c,'lVsiT 

M0V I3PL jSTAnT aDDPESS, 

H0V P6(r5) ,CI«*0, T'Pi ♦? ) th' GTr IF THAvfrrR 

P0V P6{R5),.ATYTES j save F2R AST USt 

MOV NXTt<EC-4(Hl)iOI.’*t), PPL*' I SET U? fruPLP »nECISl?’. 

nay. NXlREC*2(Rl)401i-*Q.I,'PL*!!» { VIRTUAL BLOCK JVLnSeR, 


I CaNVEHT (P t'F BYTES T0 BE TRANSFEnoEC > T? (* 8F CL'C'S), 

* M0V NSYTESfRO I * fcvTeS T? PE TPAA'SrEPRED 

ADD «5ll,,R0 » ReuAU uP BYTE C2')\T T0 NfcXT (<l;*CK 

R0R no _ _ I RECi-V£n CAPHY 

CLP9 RO ' ” I ClFAn rHACTI.'*,^/iL PART 

SwaS RO I CB-.VEKT T0 Bu-!CK C.'UMT 


I 

I compute (T'*T»L BLfiCKS ACCESSI-D 1' FlLt) ♦ I AFTER THIS CoERAT1P\ 

I IN R2,H3 <D 2 UrjLE wnRD iNTEOtR), 


MOV 

N:XT^Gc-A(Ri),R? 

1 GET start V6N (VPUAL OL^CiA •'lUMbBR) 

H(SV 

NXTntc-2(Rl),R3 

) :?F ACCESS IN R?,«3, 

H0V 

R2.-<SR) 


M3V 

R3,-<3R» 


ADD 

_/ac 

R0.R3 

22 • 

1 add U plucks T? -it TRA'SFERRED 

MOV 

R2,-(SP) 

^ STaCK FOP later use, 

M0V 

R3,-<SP) 

• 


. J GET FDD ADDnFSS IN «o 

I 

.►'av. ,n2(n!>)ino 

movB LU'TDsl-KROI.Rn 

asl no 

MOV roPi.nT<HO) ,no 

I 

I CHEC«< TOR ATTE’MPTEn ACCESS PAST 

“csp *i;' , wvB.ruN'C 

REO URTcSK 


I GET llN , 

I iNPuY rr rna rrn lun 

I C2‘''ERT TO »SDEY 

» AL^HOSS ^F FD-3 

END FILE. 

I nR*‘>cM P writing, ' 


I reading rnt'v ilSK, P RcTUfSTEC .-.CCCSb I? part f-D-^F-r J lE, 

I read up to E‘ d-Cp-FIlE a -.D RETUH- -;r rspcn co^E. 

] SuRtYac1*Z1;L.iCkS -^MTTt^- ♦ FCt-)' fr;'« a ^^L^CKS 


ACCESSED 

AFTT-R This :'PcRaTION 

• 1 «!' R2.R3). 

SJP 

r,fFRK*2(Rn»,R3 

i 1,0 "R'EP -CSR, 

SBC 

R? 


Sun 

F,fcF“K(R(l).HP 

1 Hl~.--t.JCFP 



/“! 


HPR'- 


TST r,rrBv<HO) 

eso 30! . . 

SU(» «i(R3 

S8C- - - 

30SI 

lii aa 

BQT aOE0r 


» IF »,fp8v *'0T r,fcr»K 

I C£‘.T*l\S ThE ACTt.'#L -lUMbER ZT 
I XRlTTfc.v, NfEO T3 SUtjTHACT ?NE , 


4-lf-I.If r£R£\CE->. 1i ACCESS 

I P4S1 Etcn-ir-rac. 


“I NaRHAL access, 0? OJ(» AND SET ^KTRl?C feNTfiT TP NEW ACCESSED BLOCK C.7UVT 

'* DIRS ~ KOIOiOIRERP llSSiffe C12 

(li44t__tSfiXt^MTa£C-2iRl) i_PjfP_flL2Cte.CiHUd..i:Rf M.SIACK 4 . 

MBV (SP)*,*<XTRPC-A(P1 ) 

KBV {SP)*,LSTKEC-2(R1) 

M,1V (SP)*,LSTRPC-4(R1> 

_ -RTS PC I REiyRK. . 

I BE *P-P AST r^.G.gr^rJLf. ATTE.><PTea. C.?\VuRT a BL 0 CkS PA^T C'JI. Tj..... 

I • BYTES and Su'^TRACT REOUfSTED TWANSHtR LEnCT^ IN Q\/ DPB* 

RoiVri AS^ «9,,«3 I multiply 8 y *>lf, BrTPS 

M0V OIfl*Q‘. 10S8*R4 I GfcT Kl/3 STATUS BLOCK* . 

CLR 2<R4) t CLEAR t,YTS C;TU^T 

a3*340±fl,4A£A,t-2 j.jSUalfiACl-J’Ra!l.XE-';aTh.4U-DRa 

BLE lOS I IP negative •“’B OPk:’, n? TRANSffcR 

DIRS.. ffQ!D,OlR£RR • - J ISSUE QlD AND 

H0* & l0eF*wTSE*w.TSEF I -AIT FaH CSHPLETION, 

. -DIRS . - AWTSfc.DjRERR 

lOSi H0V F,EFRK(F0).NXTREr-4(Rl) I SET NXTREC POINTER T« PAST ESP, 

Jia« L.EF 2 X taxiiil.) 40CT 3£C-'!2i-R14 

M2V AIE.E0F ,<*010*a, 1?SR I SfeT EBr CapE IN STATUS BL0CK 

...MBV R5«-(SPJ - J CALL I’ERH F3R mF-SSAGE". 

MBV 0IP43, 1BS8,ERRARR*2 i P(j/0 STATUS BLOCK) TB ARGUMENT Ll.TT 

M0V .. «EPRAR6,R5 

JSR PC#1'‘EPH 

JS2.V tSP4 H5. • 

MBV A2(R5)#Kl I get LUN 

. .. BICB •FVBT.R,FVBT-1(F:1> I INPICATE N3 1/2 IN PRBORESS 

TST <sn* I clear stack 

.. TST <SP>* 

TST «SP)T 

UZ ISP.i* 

RTS PC I PfcTCRK 


J 

I 

J--. 

I 


WRITING Te disk. IF RERUfeSTEn ACr;ESS IS BEYOND ALLOCATED SPACE* 
.ATTEMPT. Te EXTEND FILE. 


.iUil 


.f ..wiEjLflXRiJ *Jll 



SBC 

R2 

1 - HIGHEST PL/CK ALLBCATED 


sua 

F.Hir.<(R3),R2 

) lNRPiR3, ... 


SUR 

«1*R3 



SBC 

»2 

1 IF NPT > C, ACCESS IS *.1TH1N AuPCATI/v 


3lt 

TOT 


J.ST 

_ R3. 

l.,.HirH-tN’0.pR -• 'P: T I TEST .La.-.-.’R:i:«_J-J?5 

1 

1 

1 

BED 

30S 

1 IF 2f-R’. NT EXTEND, 

WRIT? 

ReauFST IS PAST 

ALLOCATED SP.aCP* ATTEMPT T? EXT£'JD FILE, 

M0V 

R3.R4 

1 SAvt A Slacks tb e*ten" 



R.SiRl 

1 SET up REGS Fl*R .LVT'D 


— 

CMP 

A27,*R1 

1 IF S 2?, RL2CkS PfeCulHECi EXTt'-D 


BUT 

lOT 

1 P» 22, 


MflV 

«2?.*Rl 

1 aTtE«PT CgSTlGUj'JS extend, 

lOSJ 

MBV 

»liR2 

JSR 

PC. .ExTND 



BCC 

30T 

1 RRaNCH if SUCCr.SSfi.L 




I »TTt:MfiT NaN-Ca‘ T|G" 8 US IKtpNO 


M«V 

.tsn 

BCC 

CMP 

Off) 


» 201 iK 2 

PCi.ExTha 

30 « 

PliR9 

20 > 


aaiiiiz .. 


HiJV 

JSP 

oce 


PStRl 
PC..6xtK3 
301 


I np/.sc>' IF surcessruu 

I IP «ECy6ST MAS FTP ACTUAU 'iHdCKS 
I '.bFCFOt *;3 SPACE AVAILAHLEi 
J. P.tiC^tST WAS FaK 22,..9L?C<S. TKl.. 

I fl^R WHAT WF: w£F0, 


unaOle T 8 Extend file 


I dranch if successful. 

PtPflRT epr?r; 


20 SI 


JSP 

N2vB 

M0V 

nest 

RlCB 

JSI„. 


PCiFCSFRP 

F,ER'»cP 0 ),pi 

Pl. 3 If'*C,PS.i 

•2(RS)iNl 

*FVqT.n,FV?T-l(Hl) 
_LSPJ*.._ 


CALL 

f*C\'b 


FcSfap r;in 

ESRfH CPOE 


•'ESSAGF, 

T^ 1 /r! status aL!»C< 


tst 

RTS 


<SP>* 

PC 


CLT ULN 
!NMCATE N? 
.CLt/.R.StACK. 


1 /r IN pppr.HEss, 


J PETLRK 


EXTEvO SOCCESsPul PR N3 EXTEND NEEOfcr, 


SBfJ D. 1 RS. 

M 0 V 


R 3 V 


*JUl 2 ialREii 8 

(Sf’)»,R3 

<sr )«.**2 


CJL C.U ... 
RtSl !!K 6 


NeXT VPN', 


IF » VlRTuAj. HUBCKS 
Fpn WWN C0UNT, 


written > CURRENT VEn COUNT IN mi| update 



"CMP** 

F,FFGK<»5r),R2 

1 IF Hi6H-yR?pVviirpD~0F vot»"vtjv< 


PUT 

. AOS 

1 VRN CfUNT AFTcP WRlTEi 


06T 




CMP 

F,efRK*2(MC),R3 

1 IF • AN1 L ='RnE'> in 


BQc 

50» 

1 < l2w»'t 9DEK -'.i!5n ATfcN ' RnE. 




R2jFiE- .iK(RO) . .. 

1 .5>.F.'.F03 y.t^v T^.nEW _CC yN7, 


M0V 

R3|F,l;f O-<»?(«0) 


. 50SI 

MJV 

»2(H5)»R . 

1 SET LLN 


ASh 

«2iWl 

1 G6’ n?ijBLE-W.TRTl INHEX 


H0V 

P2#NXTREr-A(Pl) 

1 SET V8n Fas NfcXT ACCESS 


M0V 

R3.NXTN'E(>2<91» 



j5ev-.. 

.vS.P).*.LSTrEC;2.(fil) .. 



Miav 

<SP>*,LSTWEC-4(«i) 


1 

1 mag 

RTS 

PC 

1 PETLPN 

tape 

HEAO/wbITE - WAIT F-'R PPEVl ‘US l^P, 

FVTaPEI 


.WAlTAh>2 

1 LL' Tg WAIT ARC list 



.. . RSi -lSPl . 

1 S*i-e fvS 


H2JV 

AWAITaP.WS 

1 CALL FVWilT(LJN) 


JSn 

pc.fv'^ajt 



Hi9V 

;sp)*,«s 

1 PEsTCHP 

1 SET 

Up ou 0>»3, 



Hi^v 

• l-'.RL'Gll^^C.ierN 

1 set L'P Uf FU.^CTlCN CUriE. 


CMP 

. FU‘Ci«lW,-i\'B , . 



BNfe- 

10’ 



M0V 



lOSi 

M0V 

P2IRS) • Kl 

1 CL» LLNi 


R1S9 

AFVBT.t ,rVFT-i(Mt) 

1 IN'ICaTE file kaS aCCFSScO, 


M3V 

PiiCir^c. iruj 

I LL\ Tg OPS 


M0tff) 

EF'.T.VR«irKi),0!r*D,r£r i fv = nt tlaC Tt pp-f 


M0V 

»I*.STAT,ri;'*f3, 1...S3 

1 ri-pi7t »(i/’^ staT'JS plPCk) 


AS:^ 

X2.RI 

1 riJ.'DLe -rrsrr, 


ADO 

Ri.:ir*c. irs'i 



ASw 

'’1 



HJV 

4 '♦C.lJPu 

1 Sl/^T *r/,R£SS ."F 6'lFFcP 


M^V 

a6Iw'j),g: j*o, pfl^j* 

1 ( r-T»t3 T^ TRA'SFCP 



£3 


UltlGINAL PAGE 

nP P(y^R mTAtrrv 




DIRS 

RTS 


« 0 l 9 iDlRRAI( 

PC 


ISStp 911 
RfcTyPN 


QI8 AST RIUTInE PsA PVPEAB/rVM9ir« 


DlfASlJ 

• H 0 V 

TST8 

esc 

I ' 1/0 EAROf). 

M 0 V 

• »i 0 y 

Jin 

M 0 V 

lOSi ASTX«.S 

I 

,$BtTL PVCL"S 


(SP)«*(HPAP 6«2 

•EOR*kC *2 

tos 

A 5 .-CSP) 
(SP )*,«5 


I Ppo ®U/.' status 6L0CK) 

I TCS! rjp 1/0 tBR'A, 

I fXlT |» V0 feRRPR, 

I SAvfe K5 

I..CjkUV 1/0 ERR 2 fl R--'UTm 

I PfcSiZPE »S 
I FXp AST RIUTlve 


— CtPSiS riLI "N DISK SR TAPf, 
"ENTfaVr C*tL rvCL!*S<u'N C, P^>r ^.'53 f 


where LU«' • LBGiCaL i;.MT «, 

IRVTLG • ePTlCi'iAU REWI'D FLAG, IF T‘-1S ASGUHEvT JS PPESE^T A'Jii 
> D AND the specified U"N JS ASSIGNED T*" A MAG TaPE 

device. T^£ TaFE is KEmCWnL. AFTER THE •CLDSE.* /PfcRATl^ 

HAS BF.EH PEPFPKHtn, 

This SU 3 G 0 UTINE Cl.'SFS a riLC FPFNfli BV 

IF THE LllN IS assigned TD A haG TAPE DEVICE aNC THE DATA SET 
IS wPE'.fcr. f;;h putput, an enu*4F-fh.e is •"ITtEv ?n the unit, 

-If THE J. UN' IS assigned TS A.DlSK FILE. Tr-.fc FRE .IS CLOSED .AND 

THE F09 IS r»EE0, 


rvcL<’sii 


I 

I 

I 

SSI 


H 0 V 

2 <R 5 ),VaiTA «*2 

1 

M 0 V LLN T 0 rVHAlT argument LIST 

H^V 

»Si-(SP) 

• 

save 


PWA 1 Ta‘’’.R 5 




JSif 

rc#rv,AiAiT 

1 

» A 1 T F.-R Cr.MPLETPN "!F aNY I/J 

H 0 V 


1 

REfP.RE RS 

M 0 V 

P 2 («S),R 1 

1 

Gtr Li'i 

bits 

•rvaT,D,rvpT-i(tii) 

1 

CMEtH IF HaG TAPE 

BNE 




.^,AhP 

Ct 2 lS.< 

_ 1 

\<«T hag tape .. 

L(*S 1 N 6 hag 

TAPE FILE, 


• 

BITD 

• FVsT.A.FVDT-KRiI 

1 

.’Hg'.ED FhR auTPuTT 

BNE 

50 « 

1 

rranch if ves. 

heading 

maG T*pe. if the last 

'^pt 

«*Tti'N DID S 0 T f NC-'INT'ER AN £RF 

A,^C TmF: 

Ta‘*B iS nJT REJl-.n-iG 

r ti 

AT ’"E I. 0 AD PipT. SPACE Past 

The next £!•» , 



read tape C^ARACTEa^STltS T 0 

i)cTP 

S'Mvi: PASITI 0 N, 


AI?,S(-C, 9 ir'. J, l.'FN 

J 

FL‘ CTpN C?D 6 Tj pPB 

BISB 

*fV 0 T.P,rv»T.i(«i ) 

1 

INrlCATE I/a IN PBCCPESS 


«i#ii ;*c, pLO 

1 

LL' Te 0 P 9 

H 0 V 

Ef.TAS-KHDiOn ♦C',P 

er j 

EVe-.T ri,AC NUMNfG T 2 D »6 

Mfv 

• PSTaT,C 1 :-*' 5 , 1 ,’Se 

1 

1 /- STaTJS BLi;C< address T.* 1 )P 3 

DIRS 

•CIZ.DlRFKO 


ISflE 5 1 ? 

H 0 V 

^ 5 1 • < ) 

1 

HAlT F 3 R C 0 MPlFTU‘N 

M 0 V 

•HAITaP.PS 



jsn 

PCiFV«a|T 



H 0 V 

<SP>*PS 



BIT 

» 210 < 0 »I ’STAT *2 

1 

TES' CHARACTERISTICS OlTS 

bnr 

1 C« 




I 


1 

1 

ir Tape 

IS T« RE riC«i*U'JD AFTtH 

Cisn. 02 N.1T SPACE past E?T, 

ci»a 

(R5)««2 

1 St:*^N’C APfiuHtNT PRESENT? 


LSI; 

7$ 

j fia.'.ch if var. 



...TST 

*4<RV) . . 

1 VES, lb IT > 0? 


»CT 

A5S 

1 f=AiNCh IF YES, 

J 

SPACE PAST 

NEXT EaP A'APK. SET t'P i\ 

2 D^c. 

7SI 

«3y 

»n*.5pr,ot:'*o,Kr,v 

1 Fl. CTpN 


Rise 

9rv!sT.H,rvnT-i(Ki) 

1 IN: ICaYc 1/4 1- PR.-6RcSSt 



piiUi5*a, 1 :lu 

1 LL' T? iJPb 


«JVri 

.F.rM*H-i(-ti>.oixyt,rsr 

J iVC'T FLAG TJ t- - 


CLP 

3|p*o’. las-i 

1 rirfp I/.' <;T»y :■L^ APCPtSS 



1 ’Pl 

1 Vi'vc 1 FILE «aF< 


riPi 

ffOi/iriRp: "(P 

1 ISFtP Cl' 


Mi)7 

R5i-<SP) 

I '. AlP r.‘H CZEPl.CT!i’N' 


?^i3V 

•l*AlTAf-,-75 



.. . j^n 

PC»FV«A|T 



KUV 

($?)♦, H5 

1 Rfpi:>Kr PS 

lOSi 

bR 

'»01' 

1 CL'- AS FLAGS AM »l.Ti;RN. 

< . 

WR1TIN3 *.Ari 

taPi', arjtf Far, 


50 tj 

►^t’V 

eii’.ti'P ,cr'0,UT:. 

1 Ft'CTl.’\ C'Cc Ta &P3, 


Rise 

»FVi(T.l',P ) 

I !\?ICa^L l/i I'i PR;*GPfcSS. 


*;bv.. 

'U*C!2«C, 1 'LU . 

J LO* 


fJVB 

FF^T*«-1(^1),0!.'*C, I.”tF 

1 '•Vr%T flag « T:* '-P‘:, 


clr 

Gl'-.O, ICPii 

1 "X 1/C STATyc •••g-Ck, 


ripj 

»(.U’.ri«FFR 

1 ISSt.' Cl.’ 


,V£V 


I CALL FV4AIT Ta *AjT rap crypiETi 


h2v 

«'.,AlTAf',A;> 



..-PSR_. 

PCiFVjAlT 


1 

1 

1 

60IS 

M^V 

<SP)y,R5 


ir sFC^Nn awGumevt prese'^'T am; 

> 0 , .tcwivo TAPE, 

CMpb 

(R5 ),tt2 

1 str/*u' apgv'henT pppsrr'T, 


BNE 

.70! , 

1 Rp.f. IF \^T, 


TST 

P<(«5) 

I PK=br^T, > 07 


RLE 

70^ 

1 HNaNCK if V.'T. 

65SS 



1 PE INI, FJ^':TI■.•^ r?CE T7 DP:- 


M0V 


1 •'{’/L LuN T? 'ipi> 



ffvta?-i (K'l ) » oi.;*c, r'cF 

1 cV = '«T riAG T.T rP3 




flr.-3FAF,'?r***i, ivSt* 

) M I/' "7iT ,S jLC'f ) 7,‘ CPB 


Clo$ 


1 IS':-? cl:' T.’ 


Mav 

P-FSTAt)-l(«J )| WTSr*'^, TS' 

f 1 WAIT F?« C '.'•PLFTU'y, 


Di*>i 

*wTse., DPEPN 


1 

DEaSSJGN L'J'V. 


70SI 


«1. , .DiRERP 



HR . 

CL®fLl 

1 CLF/P »LAGS A','' PPTwR''. 


I 

I 

I 

CIOISKI 


lOSi 


„.l • - 

CLwrici 

CLfifLlI 

•SPTTt 


closing disk riL?. 

Chpb 

i3» 

jnp_ CL®F'.G I • Fit., ’ff p-R LUN. 

LU^rOi.-KK: ) ,R? I GL-T fi;. I\-'.x 

*Sl »2 I ClT ;v.*d 

Miv rc^i St<R?) .KO I ii(rL’'’). 

R^P R2 

Cl-'Ss-s RC.rrsPPP i rt'Si 

CUEAP fLA&S A.sr ,i;fcT _ - 

“iva 

CL^a rn^rLc(fi?> i lu ic*'k f’"' .''T r ,s*. 

Cuf^a rv^T-iPRi) I r-Lf'R Pl'Gs ayffc » lj'.i 

RTP PC I ‘•rTv'*-. 

rvriLTE -- r^cETfcs *n jpf, f'ls-' f'.L.i 


feMRYt CALI rv^JLTeCLUVi fSTAT) 


KHERF LUN: s L0GICAL UMT MUM^fcu TF AN CPE.N DISK FILE TC BE DELETED’, 


_lK_IuE_SP-£Ci£l£fl_LlJf*-iJC£S-iial-jA"lCAtS;_A.N CREN OlSlC..r4L£. N0.AC.T.ia*J. 
RCCUcSi 

the raLL^WlNG C0PfcS ARE REtORNED in MSTAT'I 


SUCDEL«0 

NDSKiJRasl, 

DELE«K*"2. 

I 

) 

fvdlteii 

MZV 

C«P_ 

BGT 

M0V 

MiW 

.. H0V 

JSR 

j<aA<— 

K0V 

QITB 

BNE 
- CMP3 
BEO 


I FILE i«AS SiiCCtSSFULLY -LLEtED. 

..|_.Lu:^-D.lD_N^-T..Sr'f C IFJy. A.', .04SK_ F4L£ , 

I ErR»H return FRCM .OLF-ti 


92 (c 5 ) .Rl 

ai,:cLUi':SC 

3C'f 

?(i^5).>^AITAR+2 

R5,-(SP) 

. #«AlTAS.Sb 
pc,fvv.ait 

(-SP-)t ,£5 

P2fR5: »Rl 

#FVHT.D,FVaT-l{Kl) 

305 

<'^l,LUf^FD&-l(Rl) 

30S 


-K 2 va LJUKrcantRii. k 2 - 

ASL R2 

M0V rDL'L5T(R2),RQ 

R0R PR 

JSR PCi.ULfNR 

BCC 105 

JSR PC.FCS6R.q_ 

H 0 V ADEl.pRR.? 4 <R 5 j 

RTS PC 


J get LLN 

j-TLaL.FJ’.R GP.EatER-THAN MAX. _ALL0:^£O _ . 

I RR.*\CH IF TCa LARGE, 

I :-.2vfc LUN T2 FVWAIT ARGUMENT LIST 

j uait fpr c.’.mpletibm sf any l/S 
t Pn this LUN. 

J IL'’ 

> CHECK rSR DISK FILE - 
I FRaNCH if N0T DISK 
( IS f ILE UPEN7 
I f’RA^Ch IF r.0T, 

J. .GET. F.Ca. JNDEX. 

J GET W2RD INDEX 
» AODfiESS 0F FDB 

J DFlCTE by FILENAME BL0CK . 

1 pra'.ch if successful 

J - DtLbI£ .FA ILED -_F.6P.£!LL.E»iR2At- 

I return' 


file ueletld ?-Clear flags fer LUN a':D Return, 


.Aiil .M 0 J/EL. 

CLRB 


FD^ifuG<H 2 ) 

FVET-l(fil) 

PC 


.1._1AD.].C,ATE.. N2 ..FDB. F.0R..LUN.... 
} IN’' 1 cate n-3 n.’t in use, 

1 clear flags byte fcr lun 

I Return 


I LUN DID N0T SPfcClFY AN dPcN DISK FILE, 

J 

30 $l HDV «fNrs»<i’'’i»A(H 5 ) 

. RTS PC I return , 

,SBTTL FV>.'AIT — UaITS F0R CCmpleTIPN 0f I/.«, 

I 

I entrvi call FvnAimuN c.i^sT] ) 

) th’i' s ' ' sTi B '? 0 uTi N r- '• a it s'T r ' c'i- ^ p l e t i’ . ■ \ ^ r ~t \ y"?v t s t a s o i n rT T/^~ '? i-y the 

I designated L'JN, TmF n AGS NYTE IFV’-T E'-TtY) is checkfd t? determine 

I IF any I/iS IS I\ pRCGHF-SS, IF S.1, Thf FVEM FLAG F.^R THE LUN IS ?!BTa1\EU 

) FRDM EFNTA9 anD a uajt IS ISSUED. 

I 

J IF. .JHE SECf'ND (:»PTli'AU. ARGJ.MENT_ IS p--?vlDfcD» TuC- r-'^-woRn i/0 STATh^ 

I PLJICK rSP THE I.J-. (I DICATING THE U'cGv'l.T ^'F THE LAST 0PERATI/N) 

I IS MHVED TP That aDcress, 


FVWAITI « 


M3v «2<R5).R1 I GET LU : 

BITB #Fvt^T,P,FVGT-l(Hl ) I HAc the FIlE 3FE'" ACCcSSED? 




1 



lOSi 


OEo 105 I flfiiANCh ir *J3T, 

M2VB EFNTAO-KRD.wTSE^h'.TStF I YES - NAIT‘, 

DIRS «WTsE,rtRERK 

CMP (R5)i*2 j ?\n if^GU'^ENT PPtSEMT? 

BME 205 I rifiAf-Ch IF ‘'3T. 

4(P5l452 l-.YESi get »(RETL'R\. 1C5T) 


ASh « 2.91 I ni'ijuLE W 7 R 1 i'FFSFT f ’R L^'N, 

- HBV I3STAT(Rl).(92>^ I ^iZVE 1/3 STATUS «LrC-< 

Mf5V I0STAT^2(R1 )i(:>2) 

.. 20 SI. - - RTS - PC 1 PcTynN. 


I 

i Sam LVRMf:l)-ji;^.R£.>ilMS-IAP£_iirv-_ti2 J .VI S-I J-Sl /> RTL. IF,. D ISK £1L£4 


ESTRYi call FVR!:NC(LU>I) 


.WHERE LU'J » L2CICAI. UNIT NUML’lR i=*F TaP? DISK FILE, 

IF ^LU^'* designates maG TAPfe. ThF TaP£ IS RE-i2UND, 
,-lF._»LU.V.Lil£3IG*iAl£S_n.lSJL,_Trt£.-VIRjyAL-iL2tJ< -'iUY.H£R F.?R .THE..A;EXT.. 
ACCESS IS SET Tj i, 


FVRWNDI I 


M3V ?2(RS)iRl 

BITS «FVgT'.0,FvnT-i(Ri) 

JliE 105._. 


I get LLV 

I “AG TAP£? 
...X.ERA.'.CH if yes. 


DISK - SET VI.RTuAl BL2CK NUMBER T? 1 F'’« •■EXT ACCESS IJN LUM, 

asm ff2,Rl ,J R£? U'uBL£-H 2RD INDEX rCR LU'*. 

CLP NXThEc-4(R1) 

f’0v *1 iNXT«EC-2(R1) 

RTS PC I '’ET'.pn, 

1 WA LT F i?R a ny P P cVl -TuS 1/ r ANn REwP' D MA G j/rj: , 


1051 M0V 2(Pi>),WAlTAR*2 
M0V R5,-<SP) 

M0V #WAITa«,p 5 
USR PC,FVk,AlT 

Mgv (SP)*,P5 


SET UP Q IC DP tie 

M0V a!".R,/D,OI5i-»C, li'FN 

. M0V P2(RS),R1 

BISB «FVfjT.b,rVPT-l(Hl) 

M0V . Rl,Glfl*C.I'.'LU 

M0va EFNTAF-KRl) ,01«*c‘. n EF i EV 


j u-v Tz fvaait argument I 1st 

J SAVE R5 

I CALL F VWAlT(LU'-‘) 

I WcS]?RE RS. 


J get uLN 

J IN''1CaTE 1/0 IN PR'-’GPESS 


^T flag 


MDY ?l'’S,T.AT,.fU^.Q., ICSl? i.C?- FuTE STaTi.'S Bl*’CK) 

ASM »2,R1 ) CL’i'liLE ■-TRO ?FFSr-T 

add R1,O10*O. IPSP 

ASH «-2.Rl 

DIRS flOIZiClRGPR 

RTS PC J return. 

,sWtI~ *F*RSrNH~'^l^’Rs"ES^’n^^ VNo' sf’ZRE^ I f I’n" HATaSET ‘ DESCR I PT.';H , 


I ENTRY! CALL PRSFN! (F:lE, NCH/.R,CSDESC,ERR3R CiLUNT ) 

I THIS S(J0P0UT1nF PaHSTS The I'CMaR* tivT^ fIlE nA“F In 'FIl.E' aN'D 

,j SETS. UP-.A . data _SPT D^jSCRlPTiF J.n The e,->. /.Rmav 

» thf Data set of-script/r pz-imts t:: tkf .vpo^-pp i at? lzcati t.ns in 

I 'FILE' FrM The STaRT w'.F T-^h DEVICE Name, uIR?CT.!Py, AV' FILENAME 

I FIELDS, AN i'HITTCD FIELD RESULTS lA a cvTPY FDR TmaT FIflD, 

I IF the Device ''A-tE is present and tht fifTu argu^cnt ilum' is 

I PROVIDED, the LjGiCaL UnIt M'.impfr In'*Ll ' j <: ASSIGNED T;' The 

,.l device.. .. , 

I if IhE device 'a“E ir present and > p characters MncldDING 'HE "I") 

I CR IF A *[' lb F?U'D WIT-'/iJT A ( d'JT \;'T VICE Vb^SU, 

I 'ERH3R' IS SET TD -1, CTMbRHlSr, iFH'tzR' IS SET TZ 0 UPS'' RETURN, 


DATA area 


-16 


I 


ADSDESI 

CHRI 

I 

PRSFNrtll 


.(Jf'Rt) 

• W 9 IKn 


I PWINTtS TW IATASCT DCSC«t»’T.ilO 
I PUFFtM F?K TEPP2RAPY CmA.IACTER STePAOt 


M0V 

2(R5),R0 

1 P(FlLt name) 

CUl 

P3, (R5) 

..-j-.CLuAH 'ERfijR.', 

Data 

SET PtSclPTCR, 



6(R5),«2 

1 KDATASET 0PSCR1PT2R) 

M0V 

R2,aOSDES 


►av 

«6iR3 

1 L0PP CrUNTER 

CLR 

(R2»4 


.803 -.., 

„-.R3,lQS 


Mav 


“TV liHAi'CfERy" iN riLE NAM? 

BED 

prSRET 

1 IF 0. RETURN, 


search F?« DEVIC:’ NahE FPLLJS’-EU PY 



Mav 

R0iR2 

1 

PaiNT TZ START 0F STRING 

I 

CLR 

R3 

1 

CLEAR 'itVIrf NaME CHAR C'^U^T 

i 20SI_- 


..... 



1 

i 

cmpb 

IR?)*,«M 

1 

TEST F R M' 

1 

3E0 

30$ 

1 

BRANCH IF rzuND. 

{ 

San 

Rl.20t 

1 

N0T M', CwtCK CHAR CSUNT, 


»it FnuND, resei oeirneps. 

M2V ■!»4<k!>)»Hl I 

..Mav R0|R2 . 1 


I RESET e CHiiRACTE«S 

1. paiNT Ta. start 0F string. 


ADD «4,a 0S0ES I BYPASS CcVlCE nA^E DESCHIPTaR 

0R DIRsC.n 

'‘aUND. SET UP DEVICE NAKF DESCRIRTt'R *ND ASSIGN LUN IF REQUESTED, 
CNP R3»#5 I IF A CmAR 5> iN DEVICE \AHE >5, EP'^iJR. 


El CNP R3»#5 

BLE 35S 

JMP-XR9i2S 

>1 Hav R.TiPAoSDES 

iNC ADSdES 

INC adsdes 

H0V R0,S adsdes 
INC adsdes 

,-JiJC adsdes 

OtC . Rl 
CmpB IR5),«5 

BNE DIRSCN 


OtC 

Cmpb 

Bne 

I ASSIGN LUN, 
H0V 

— HaVB.. 

nave 


I n characters im device name, 

I INCREKlNT pointer Ta ADDRESS 

I Pt'RTI'N if device NAnE descriptor, 

I PIDEVIcE Na‘'E) 

I P0INT TZ directory DESCH1PT0R, 

T S kI p’ ' I ' 

I CHECK raR fifth ARGUMENT", 


R0»RA 

(R4>4,ALUN^A,LUNa - 
(R4 )♦, AHlN*A,LUNA*l 


1 .M2vfc Physical device name.. 


C0NVERT physical U^IT '.'0, TU BINARY, 


CLR R3 I CPNVr:RT CHARACTERS UP Ta *t' 

40SI Cmpb (R4),«'| I T0 UNIT ‘;0, 

ego 50T 

MVB (H4)*,C.HR j-.N0T .Mi, MZVE TO TEMp STORAGE 

SUR «'0,ChR I C0.VVFRT TC DECIKAL DIGIT 

MUL «io,.r3 ) multiply pctvi:js result 

ADO CHR.R3 I ADC NE" CHaKaCTER 

BR <0S 

I SET UP DPB T!" assign UNIT, 

5.0SJ ..M0V R3*ALU^J*A,LUNU.. - 

H0v •10 ,(«S),ALUN^A,lUL'J 

DIRS AALUN.OIRERR 

I AT this PCINT, RO PCINTS TP THU FIRST CHaHacTE? ?F THE FILPnamE STRl'C. 

I R1 CCnTAI-.s T-<i: MJH'-tt; 'F characters regainin''. Ta EE SCAN'ED. 

I . .. R2 PCINTS T'' the first ChaHACTER F2LL'hJnG Thf. *|< Sv‘*ti'’L,. 

I SCAN F'^R OlRECT.D«Y IDE^'TIFICaTK'n "[■ IC3", 

OIRSCM Mav R2|R0 I maintain P'InTlR TT START P-SSIHLE UIC 

CMPB (R2),a'C I IS NFXT character 'C? 

BED t>J I branch IP vts, 

ADD AA.ADS'^ES I MB UIC. SKI^ DIBECTCRY DFSCRlPTeR, 










^i|J^?y l|ll.y 75 = ,, J^l?'J;!|l" ? I!-'" ‘ 


13. [131,140] GETCOO.FTN 


The subroutine GETCOO lets the user accept or change the default 
coordinates of the cluster map file and theme display that are 
passed in blobal common. 

• Calling sequence 

CALL GETCOO (IC,TC,ISET) 


Argument 

Type 

Dimension 

In/Out 

Description 

IC 

I 

4 

Out 

Coordinates for theme 
display 

TC 

I 

4 

Out 

Coordinates for cluster 
map file 

ISET 

I 


Out 

Flag set to 1 when 
user wants to exit 



1 


/T»iei.*^Ci<S/WB 
SyBRfl jT I v6 GB U C I TC 1 1 Sit T > 


Mr ^ R T ft_A N IV- PLUS V02 -i * 
8ETCH0,FTN 

0001 

C 
C 
C 

s 


_14J25IJ4- 


JItAWB-U. 


ZAOE-1 


0002 

_0003 

0004 

j0.OQ5_ 


C 

c.. 


THIS PR0GRl>K GETS C«0RD1WATES FR^H THE USER 
THE CLUSTLR mA» FILE A'iO TH£mE DISPLAY 
JF„C:JiP^NmS_M.H£S_JMt!!-_rH£JiEF.AUUS_ARE_. 
nfsiREr.' 


implicit lMBr,gR(A»H) 
iNCLUDfc *C3OP|33CAf'SCCV0«,lNc! 
include 'SY|C3.10,31CASSPAK/»«.IvC* 


0006 

0007 

_D.00fl. 

0009 

0010 


JDll. 

0012 

0013 

0014 

0015 


0016 

.0017.. 

OOld 


0019 

0020 
. 0021 , 


0022 

0023 

0024 

0025 

0026 
0027 
0026 
0029 

.0030 

0031 

0032 

0033 


C* 


jNCUUur ' »T I o jufl'isr " • i v > 

J?*5A.!lE.T=J?..J‘.A*CAT»61»‘’AXS"Stt6f'i‘'<'5<CHN|4,NPlX#i96»NLlN«ll2i-MAJ<FL.O»50 

1,mTxV» 11 »N3^TSa209,l:L5KIP*l0,DSbKloeib,MAXACP«6#MAXACC«4i 

2N»SPWD»6 iK'^DTixCslO . . - 

EOUIVALE'iCFf (Cl, /.Cf.ATC ), (C?, ISPS). (CS.PFLAr,), (C4»TX1>* (C5,DI SKID) 
.INTCGEH Ci(469),C2(256),C3(71),U4{346),C5(629) . 

INTEGER . ACILAIf . SUIP:;.^ *C aTKMi CATTH 

PYTE CP'jYtiC.'JkiCHAN.N'-SUtt. 0. TCATiDi'TCLU 


c* 


c« 


c* 


_ C0HM«.V/C?N1/ achate ( 2. •‘'AXACG) »C'-<^’'EC{MAXCHn.MAXACC) ,N0CHAN,N0SUP. 
iSU%C*T<MAX‘:01).SUf-Pi.f*<‘’AXS"8)»C«TA.jT<MAXCAT).CATTH(HAXCAT),NGO’). 
2NaDU.,^?TP.D^)TCAT(^::l•TS^.P3TCLU(^D^TS) 

_-l(ttE££P..A0AlES.,Si;\/.2.Ar.*L3l,.rLriCAY.02.TDAY.PDATPliIrATEl 

InTeGEP PDATE2.THATI 2,PDAT--3.THATfc3.CATNAM,DlSK10,qANOtlM.GPID 

2YTE DElFLG.n|^aco.SCILC.R.S'.NPL.''STaRT,VTYPE1, ALPiAlPB 

BYTE PCTCT.PCTCT'', VA*'‘,VA»v.,DLAr4:l.,TYPE 

C0hh»‘\/c;v.2/ISEG,DPLPLG|\.)aCJ;i aOaTES<2,MAXACO)iS3IlGP(haXACP), 
iSy ;EL ( “aXACD) . SU*'A?("AXACU) , I PH ATE < 2 ) . ANAL3T { 5 ) , PLODA Y < 2 ) » 
2PlIDAY(2).‘;SIAHT.EinPtljP.i:’Al^l(il).T0ATF.l(2).PDATI2(2)*.T0AT.f2I2l. .. 
3PDATf^3l2) I TDATE-3<2) i‘ <5CAT.CATNA''(t/AXCAT), alP<MAXCAT)i ALP0# 

4 PC.TCT('<AXCiT)|PCTCTG, VAMMAXCAT)iVAR3 ... 

INTEGER fcrLAr.l,EFLACZ,PFLAG3.£rLAG4|EFLAG5,urLAGligFLA62i0rLAG3i 
1UFLAG4 

integer PFLAC.j-'S'<H''T 

~CrRM«.i/C?M3/PPLAG7HSXM’.T,ErLAGi,EFLAG2,EFLAG3.F.FLAG4»EFLAG5,UFLAGl 
llUFLAG2,l'FLAr.3.UFLAGA.^t»LAa(^■.^XSUB) .. 

INTEGER Tx1,TY1,tx?,tv?, AC’'ISP,C, 6,0TWIN0.rBTARY|6MlN,GMAX,FUL 
■ INTEGf-R SP■«I^T.CLAW^^.rL>.|«‘D 

_C0«Mr.vc*‘MA^Txj,,T>i.|TX7,n7» ixi#m# LX2» I'^?! AcniSP(2). ui.(4),g(4), 

■■ I'e ( 4 ) . b T ■* i Nr ( K , f a ) , SP>* I ‘ C < 6 , ■Nt'SP WD ) . I l NP ( 4 > , NUHD0T I 

2DKTARYI ^HaTS)»r,^-p:,C^■AX,rUL(2» 7)|CLAJNQ(fl),CLU4ND(ft) 
CiJ".M(’'N/C*’Mr'/DlSKlD,rA.vif'e.-«(vO?TS),CRlO(NO?TS),DLAeEL(ND0TS}, 

1TYPE<nCL*TS).PECL''C . 

ni«ENSl3'l It(4),TC<4) 

Dli'£\'Sl2N CCjIRPLA) 

Byte w«74> 

ISET»0 - 

IC<1>«IX1 

lC(2»ilVi . . . . 

IC(3)«IX? 

TC(’l>sTxr 

TC(2»«TY1 . 

TC(3)tTX2 


m 




rilRTRAN IV-PUU& V07.04 

.PETC.J'.fi.,.riN /TlLLDuS'CK&ili.l. 

0C34 TCU)bTY2 


I4t25|4» 31»AUC*77 


0039 

10 C2K’TInL'E 




0036 

WRlTf (<^|420> tC 




0037 

WRlTE(6,fl3C) 




0038 

CALL F.L'TPgT<7J 




_fl03« 

REAll<6»eOQ) 




0040 

CALL FH0'“T<W.74) 




0041 

IF(!i<l),>iL>,‘C») 


T« 

10 

0042 

fF<W<l).Fa,' •) 

r.2 

T(3 

40 

0043 

IF(W«1 >,PO,*X') 

r^i& 

T0 

777 

0044 

IpT « 0 




_P?45 

no 15 Ul.4,2 





"call IhTrF(lPT‘,W,74,Cr’0PO(I)) 
ir(CC?RP(n‘,ijT,fPIX,(di>,Ci!PiRt)(t),LTii) Ofl T0 20 
call lNTFr<IPT,S,74iC«‘ii.<C<I)) 

.lFcCej'Rn(l*l).67,N'U.'l.i:R,CiJ0Rn<l*l).,LT,l) G«.T0. 20 
C’*’TI\’U5; 


..0051 


_. _R0 _t« 30 

0052 

20 

continue 

0053 


*IRlT‘r(6,850) 

0054 


S0 T<1 10 

0055 

...SO... 

C2^'TlNU£ . „ 

0056 


D0 35 I«l«4 

* 0057 


TC{l).C7pPDn). __ 

0058 


c?e><D( 1 )*() 

0059 

35 

C'’»;T1v!UE 

0060 

40 ■ 

WRITE(6,840) 1C 

0061 


WRlTt(6,630) 

1 > 0062 


CALL 7UT«>UT(7) 

[ • _5L0f3 


REAa<6.830)K 

0064 


CALL F«a>T(W,74) 

0065 


ir(w<l>,E0,«''M r,0 T?! 10 

0066 


lF<:<i(i) ,1:0. ' •) r.a T/5 70 


ir<«(i),«:Q,'X')_';P 777 L _ 

tPT.O 



call lNTrr(IPT»W,74,C('0PO<I>> 
cintp’up _ _ 

IF(C'‘C«0( J) ,5O’,0) C^i''RD(0«C'’»{RC(2)*MLiN 

1F(C(’2WD(3) ,CQ,0) CJ^«n(^)«C«CPCa>*NPlX 

90 50 1*1.4 

IF( Ca;!ftn(l). LC.^ 12. *Nn.C0(»R O( 1 ).CE.l ) 67 T0 5 [ 

w«MtEr6,a50r 

(J7 Ti3 40 _ _ _ ^ 


50 

C 3 k'T 1 .vuE 

C2 60 l»t#4 
lC(l)aC?ri 
C'3«3(l)« 

60 

C3.^f‘0I 

70 

1SCT*1 

777 ■ 

C2MTINUE 


PE^uPL 

eco ■ ' 

F.:R'<AT«74A1) 

B?C 

FJOMiTt/* St 

03 o'" 

F'^RMATt *T Nl 

840 

F0PyAT(/' PI 


<FNT C/’RPl ATES ARE >_! 1 1 3 . • , ' . JJj 4X # 1.3j SjLti? ) 

r/'Ki^r iTE<: ir trsiREo >•)’ 

'LAV CU2Hl'l\ATES ARE >• 1 13« * • ' • 1 3. 4X> 1 3. ' • M 3 > 



//> 


rilRT»AN IV-Pl.gS V02-04 i 1125KB 5l**UG*77 PACE 3 

.6ETC3C.E-T.N /T.‘»l?Lf’CKS/>R . 

, 0090 B50 raftMATOt ERRPR IN CPOlL’lNATiS • TRY AGAIN •"•••) 

0091 600 r2f<M*T<//' ••• If.P'JT 

0092 iND 



14 . HPROS 


This program is documanted In reference 1. 



p 


_HFftRTRAit Jy.-J’.LM5 .^02-0^ 


HPR 25 |FTN 
OCDl 
0002 
0003 


.0904 

OOCi> 

0006 

.0007 

0008 

0009 

.. 0010 . 

OOU 

0012 


_.a 4 J? 6 «l 7 ^ 31 ?AU 6 " 7 . 7 - 




1000 


/TRl'^tOCKS/kR 
SUHR^UTlVE HPh'»S(Li!^.rHiO.'f|f^'T,£:?r,PPTY,5HrC) „ 
IMPLlclTUTfc''.tR(A->) 

CHJ'H?\/pC?v/ss,s6,LS,LC#^RfDS»\'USPR,NCPRiNPPC«ANCL.NC,NSi 
1 ?.niT,«7l,''CAK,Swr.RnH#PS<|P»MSI2,CALP|Ct:RR 

C2'.:!:C.\/J?LP/Jji.,LP. - 

PYTE nUFdJ 

t'Bitf < n ) )*2!»5*Fr'jNC(f>UFU*i) > 

If (CtRP,‘'E,0)HrT'if>:»J 

lF(f‘'T#s'5.1J 57 TO 1 . - - 

If (fl-TiEC,?) 5* Tt: 2 
.G3,.Te_3- 

liRITFcdilOCO) f»'T 


0013 

0014 
„0015>. 

0016 

0017 

0018 
0019 

0029 

._. 002 l 

0022 

0023 

0024 

. 0025 
0026 

0027 

0028 
0027 

0030 
. 0 C 31 


fl'RMATC fLAKET f^RflAT SPECinC*T12N • 
1 /) 

, CERR * 9 . , 

pETuRn' 

„ss„*-a?tT(uje) 

Sfc*PPof (111) 

LP • 0 

tjRP0P*5uf (1 04) 

NBSps*R.jR( 177 €) 

NCPH«.iur(ii 2 ) 

...NrtPC*ai'F‘l'?3> 

ANCL*R”iiF(105> 

NC^aUFtOO) . ..... 


NS*8Pl)F(l7e7> 

.NPITFD'.'Fdl) 

net • ‘'jf(io7) 


•il5«* HPR0S terminates'. »// 


r CAS»R^l!f < 17 .' 5 ) 
SVD « B?l'f(92) 
PSIH t q«Lf(ion) 
PSKIP a 0 
_^•SI 7 a i 530 _ 


0 C 32 

0033 

0034 

0035 

0036 

0037 

2 

CALP ■ 0 

TT 4 . . 

Sb a 1 

St a 0 ^J^< 23)-6 
LC a q.)i/{ 3 V) 

^RPOS a 1 

- 

0033 


Nl?SPP si 


0039 


NCPR a H(<Ur(lV) 

. . 

0040 


.VPPC a 1 


0041 


A»*/CL a 4 


00«2 


’<C a \CPP 


0043 


NS a St 


■ 0044 


“Naif 'a 8 * 


0045 


D«l a 0 . .. . 


0 C 46 


•;CA« a nCPR 


0047 


SVO a 1 .. 



0048 


WSI 2 a \Ca(,sS* 6)44 


0049 


PSKJP a 3 


“0050 ' 


HM 2 • 400 


•0051 


CALP z t 

. _ . . 

0052 


C 6 i T 5 * 4 







IV»PLUS V0J?-P4 t4l26ll7 3l <AUO»'77 PACE Z 

-.HP»»3SifIi!< /tni.HL-Ci<S/y«f» 

0053 3 NS • 4*<uf(39»/4 

0054 t.fJuP(14) ^ 

0055 SS ■ M$t(tAND<I,l5)*l)«t 

0056 . S6 ■ SSfNS-1 . — - 

0057 LS « 1 

_Dfi58 Ut. 

0059 Ni)i>D5 • 1 

0060 . - N03PO «.l 

0061 ncpr I 4 

0062 'JHPC • 1 - . • 

0063 A;:cu ■ 0 

„0061 -S.-4 

0065 NUIT • e 

0066 Okll • 2 . 

0067 -'CAR ■ 4 

0065 . S*»t) e 1 

0069 »iSl« t d:3or(l7) 

007ft PSKIP t 9 

0071 * wSli t 338 

0072 CAlP B D 

0073 CALC R^.rA0(LUN,m.tit'A'(41).6Z4.5CT,EPr,PRTV) 

0074 C.' TB 4 __ 

0075 HAMTI (I.'ilOUl ) 

_ 0076 .tool. rt:f^M4T(» f.-f C jC? IUvTFRP D Pi uPPiSS. PRO GRAM TEPWlNA_Tg_S_j.«/// 

*0077 ■ ■(•.£ PR • 10 

0075 PeTu^', 

0079 4 IF<Sl-TG,N6,0} ^gTlj»N 

0060 BP*:.'«l(U'nT » 3#TYPfc•'lJ:'iKNC^K^•,^*''e^•C300, 13HE4DFR.DAT' 

1 ♦FPf’M*«OAFMPKATT6r)*.ACC'=S<? * ' St StPM 1 4L * . DI ^P:<SE« • SA VE ' > 

OOBl “?*hSJ7«3 

0082 -hirF(3)<e ir<n,i«ifH2) 

0063 . CLi'3F(U\IT»3) . „ ... 

0064 RETURN 

0085 EM) . _ 


3l^AUfl»'77 



15. HVpy 


This program is docunentsd in refsrsnce 1. 





I 

I 

t 




//7 


1 


HVrt.fTN /T'»I«L 'CKS/V.9 


J1-AC6-77. 


pAaE.1. 


0001 

0002 

0003 

0CC4 

000 $ 


. 0006... 

Dino’’ 

p 

P1007 

0007 

0008 

lODl 

0009 

OOlC 

1 

oc;i 

.0012. . 

-10C2 

0C13 

0014 

2 


01003 

c 

._c. . 


iMPLl-n iNTfC^R U-2) 

«YTE w';<U 

CPt'M *\ /» ,LS,Lt,Nf’P^j5|NDSPR,NCP9,NRPCiANCl.»NC»NS, 

.1. NPIT.t'J,* C*A,SVD,t;r-l?,PS'F,MSU.5fUPiCt«R - 

WRITt {LP»100fl)SS,SP,LSilP.‘'RPl'S,sDSP9,NCPR|NPPC,ANCL,NC 
> fnp4**TC 

■JRITF (t-P,lP07)»‘;.N'.|T,r/'Ii 'C»R,SvD,RS12,rS»fIP,HSl2iCAl.^ 
t r;’,s*-.tT<' *,1^111)) 

!F.tPUfCC.P,.’R.irh'.K2,3.^\?,J<l.E»,2)L5,'! TP 1 

i'RlTI;( li.ltODOk t 

rk«JMAT<' iJL'l « M5#‘ li.'i accept aSLE*) . . 

G« TH 99 

U(NPlT.h;:.(j) Ce Tr 2 . . .. 

'iRlTf ( li%lPO?)VRlT 

ft'O-.A.I.C rilT t..L,j5, !. U: ArC2PJA3i,E«j._. 

G»* t:' ^9 

IFCfjRpC.fC.l) '33 T7 3 
w'R!T(.( li!,xn03)NKt»C 

« FZR«AT{' VRPg ■ rN«CCEPTAl>Lfc' ) - - . 



C 

c 

c 

t 

c 

c 

' rWon FeR 
NRPC Sti 
*.CP» Sf-T 


c 


001$ 


'.RPC»1 

0016 


’.CPP»3 

0017 


tr 


D 

“■RITfit 13,: 


.J'lPii. 

r K ‘1 A 1 1 • 1 

001 e" 


3?. T.' 3 

0019 

i 

IF(N 

007C 


'-Rin ( >0. 

00?1 

l&os 

r ( t 

1 ' Kr^eT 

_ 0022 



0023 


' 'tZ T ' 4 ■ 

0024 

4 

ngTjRf. 

002$ 

99 

.i-nE(l;,,99 

002t> 

999 

F,'<«AT(' »iV 

0027 


C2«^R«1 J 


RP( 


l>iJ. • JSPPC. i^ii^jLL 


'SPR » T'l ' SACCiPlABtEV 

rc 1'/) 


.OOPP. 

0029 


SI-T|:Rk 







GSZ5 

Urry 




16 . LECTAP 


S«e appendix B for a description of this program. 



-«T*TLE lectap 

• n?E»'T /010377/ 


. 1 1 1 1 1 1 1 II t : i 1 1 1 i 1 1 1 1 1 1 m 1 1 1 i 1 1 1 1 1 i 1 1 i I i 1 1 1 1 1 n i 1 1 1 1 i 1 1 i 1 1 1 i li 1 ij i i II I II 
II 

I . PRJiGRAH I Fortran CaMPATlBLE mag tape SUBRaUIti^E- 

I TITLE I lECTAP I 

I AUTHBR - I G. CRIDLAUD -I 


-4- 


I 

I 

I 

._| 

I 


CBVPANT I G.E.IMBOIFIFU BY AERZNUTR0N!C-r?RO) I 

I RESTKRED Ta GE STANOATD ("VRE 0R LESS) QY.LEC... 
FUVCTI2N I T0 PtRFPiRM THE NECESSARY TAPE ePERATI«!NS F0R 

Fortran programs, i - 

I 


ni l tjj J 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 1 Hi IU.U.U1IJ JJll ll .IllJ i . l t l iJ .i l . 
I 

.MCALL M0UTT.^'BWA$SiDlR$»CLEriS,NTS5SS«al3$ 

.MCALL SETF^S 

iKCAlL ALUN"i . 

.MCALL M0UT1S 

.MCALL . EXIT?S - 

.MCALL FSRSi^.PlNlTS 


.6L0CL TINlT,TRLSE,TREA»;iTWRIT,TUNLn»TE«F 

.glbbl trwd.tskip.tstat.tset.tnait 


-^BL0BL— TFILE.TATCH- 


TINITI 


INITIALIZE requested MaG TAPE_UNII. 


isi 

„?S) 


”"3S» 

_JS| 


JSRS2S 

I 

_FIN1TS 

CLW 

M0V 

tst 

SEO 

M 0 V 

_0R 

M 0 V 

■ M0V 

May 

TST 

_BEO 

0«RS 

OR 

DlRi 


MTLSFT unitialize LAST FUNCTION ISSUED. 

R3i-(SP) I SAVE register USED 

P4(R5) 

IS 

I'ASGXTiR3 

2S 

AASGMT.R3 


P6(R5)>a'.LUNU(R3)I 

P2«RS)iA,LULU{R3) 

PAIRS) 

35 

«asg<t 

AS . 

FASGMT 


M 0 V 

__ RTS 

ASGMTI ALONS 

_asgxti alunt 

I 
I 


(SP)*,R3 I restore register USEOV 

0 ?mt ,0 1 ASSIGN'LuOrRycTfvl 

O.XTiO lASSIGN LUM F4)R XT 


TMAITI 

I 

I 

TRLSEI 


I MAG tape .i*1T - FAKE 0UT WITH OUICk EXIT 

’ I ” ' 

RTS PC 


I 

I QUICK exit. 


release hag Tape unit 

I 


M0V #8.,»lTrcSV I SET T.' ObTAC^ HAG TAPE UNIT, 

H0V •2<R5),Ol3OPn*O,l0LU 

JMP MTOI 0 I 

__l _ _ _ 

I ATTACH UNIT. CAU MTlNlT riRST,,', 

I _ 

TATCHI ' ■■ 

' H0V r R5),OlaOPp*O,I0LU _ 

CLP HTFcSv 

JHP MTO10 

I - - - 

I REAH-HAGNETlC TAPE UNIT. 

I 

_t86AD| I 

M0V P2(R5),Qi0Opn4o,iaLU 

M0V AIiHTfCSV I SET F0R pEAO REQUEST. 

HT^W 1 1 

H0V R0,-<SP) 1_SAYE.B.!L 

H0V Rl,-(SHJ I 

M0V , FQISDpB,RO I SET NO ^’lTH ADR 0F QUEUE I/'’ OpB 

M0V 4(R5).O,I0PL(RQ)I set Q1?i DPp PaPM LIST T0 STA«t ADR 

H0V P6<R5),Rl I GET Wii-,0 C^^UNT _ 

ASH «1,R1 I O0UULE H?Rd CeuNT 

MV Rl,O.10PL*2<RO)_l STFRE '<??? CtJL>]T IH P ARAME T ER LIST W3«0 2 

JSR PC,pTcI0 I 

__NJEx_m I. . 

M0V <SP)*,Rl I RESTORE Rl. 

M0V <SP)*,R0 1 REST51R6 R0‘. 

RTS PC I exit; 

I HrTt E 


_l 

TWRiTt I 

M0V P2«R5),OI0DPS*O,I0LU 

M0V «2,HTrCSV i 

JrtP. . MTRW I 

I UNL0AD magnetic TAPE UNIT 

_J. 

TUNLDI I 

.. M0V P2IR5),O10DPP*O,10LU 

M0V «7,hTfCSV I 

- 

JSR PC.HTQI0 I 

RTS PC I exit; 

I 

). write **• END-0F-FILE 

I 

_iej£‘ L._ 

H0V P2IR5) TI0DPR*O, I0LU 

H0V «3 .iTFCSV I 

BR HTu2 I 

1 _ „ 

) REWIND 


TRWDI I 

H0V Ai2(R5),QleCpn»0, 10LU 

H0V «4,riTrCSV 1 

BH HTg? I 

I 

J MAGNETIC TAPE ••• QUEUE. 1/0 ••• 

I 


^-MTOieil 
~MT iei ) 


I 

M0V 

M0V 

M0V 


R0,-<SP) 

ACl0DpB.RO 


I 


I 


R1,-<SP) 


I 


H0V 
H0V 
M0V 
ASH 
ADD 
hbv.. . 

M0V 

DIRS 

HTSEfS 

H3V 

9TS- 


AMTrCTB|Ri 
MTFCSV»R2 
AliR2 I 
R2«R1 I 

(Ri)iQii:irN(RO} 
(SP)-»,R2 
(SP)».Rl 


I R6STPRC- ofeGlSTERS USED 


I 


*Ql0npb| REQUEST MAG^ETIC TAPE FUNCTI0N 

*1 . 

<SP)>,Rfl I REST'-iRc RO 


,.PC 


I exit;. 


-J 1 TFCTBI I 


I 

I 

HTFCSVI 

-JtTLSFTl 

MTUNITI 

mtswd"i 


iWPRp 

• WORD 

• W^RD 
-.W0RD 
tWPRn 
«weRo 
||<PHD 
iMRRO 

• H2RD 
.(HSKD 

iH?Rn 

|W0RC 


le.ATT J 
IDiRLB I 
I0.MLB I 
l2.E<?r I 
I8.R^>0 I 
I0.SPQ t 
lOiSPe J 
!0.R'<<U 1 
l0tUET I 
12iSTc I 
10. SEC I 
10.SPF 


0 I ATTACH 

2 I READ LOGICAL SUeCK 

2 I WRITE LOGICAL ttLf”CK 

3 I WRITE E-f-F 

4 I REWItCP 

5 I SKIP REC2R0 

6 I BACKSFACE REC7KO 

7 I Uf-UFAL’ . . 

e I RELEASE 

9 1 SET CHARArTEF.jSTlCS-.-.. 

10 I SF^SE CHA.^ACTt-RISTlCS 

11 I SKIP FILES, . 


SAVE! 

_J 


0UILO STAuS W0RD Fr^R RETURf. Tf. USER _ _ 

.«>2 1 hag Tape functisjp issufl 

I LAST HAG TAPE. FUNCTION' ISSUED 

.WPRP I SAVE Tape Ui'IT N0. HERE 

-.CSECT status . _ _ _ 

•WRRD 0 

..H'ARO 0 , 

, CSECT 

-•■,♦2 I uuild return status mere 

|*>? >LA$T C0HHAND FOR PTSTAT 


I 

..I . _ . 

TSKIPI 


_MT 5 KI 0 | 


1 

J 

I 

.TSETI 


SKIP <N) REC«HDS 
I 

.M0V. P2<R9),OIoOPR*O,I0LU 


M0V 

I 

M0V 
M0V 
M0V 
J8. 


«5#MTrCSV 


I 


I 


R0»-<SP> 

«Ol0OpR,RO 1 

P4<R5),0.1?'Pl(RO) I 
MTI0 I 


SET DENSITY and PARITY (SEVEf.) TRAC^ 0NLY 


» 

M0V •zCRS) ,3ier)pn*o. lauu 
..M0V . 

M0V 
M0V 
CLR 
HOV 
MOV 
_ASH.. 

ADD 
BIS 
M0V 
I 

TST 
BEo 


«9..htFCSV 
ROi-(SP) 
*OI0OPB,RO 
0. laPL<R0) 
R3,-(SR) 

»4(R5),R3 

«l,R3 I , 

«MTdEniR3 
(R3),0.PPL<R0> I 

(SP)*,R3 I 


.. I .. 

I 

I 

I 

I SET t)E\SlTv RECUESTEO 

I 


I 


P6(P5) I PARITY ’DD ?R EvEN ? 
MTPDO I 


I 


»lf),0,iePL(KO) I FVEN 


.MCODl 

"HfOENl 


I 

—I 

...-TEILKL 


BIS 

I 

JHP 

I 

iW^Rn 

tW0RD 

iWeRD 


HTle I 

2 

1 

0 

40 


I 0 I 200 BPI 

I 1 I S56 BP| 

I 2 I eoo BPI 

I 3 I aoo 0P1 DUMP .«12DE. 


BTFILEIWMIT.NUM) NUM a ♦ FDRHARDi . » - REVEPSEi^ 


.„1 

I 

X 


tstati 


H0V •2(R3)«Cl;iDp^aO, I0LU 
ROV Pll.iUTFCSV 

BR MTSkIH 

semse characteristics 

I 

M0V P2(R5/,OIeOPR^Oil0LU 


XU. 


CHP 

BEq 

MBV 


HTFCSWiPIO. 

IS 

HTFCSViSAVE 


MT 556 I 


PIG.iHTFCSV 
PCfMToia 
SAVe.MTSJ 
#177760, riTSW 
Rl.-(SP) 
MTSwD»2,Rl 
#3,R1 
MT!>56 
«40Q00iMTSW 
C^^KDhP I 


JEHKDHPI 


MT10TI. 


bne 
BIS 
BK 

i 

bit 

BEO_ 

BIS 
I 

BIT 

BEO 

BIS 

MTLS TFI I 
BIT 
BEO 
BIS 

_WRTUCKI I 

bit 

BEO 

BIS 

• _H77CHI I 

BIT 

. BEO 

BIS 

_JilU)PIi_ J 

bit 

BEO 

BIS 

» 

RTRSWI I 

^ Mav 

OF^f page is 

POOR QUALITY 


M0V 
JSR 
M0V 
BIC 

H0V 

M0V 
BIT 
BNE 
BIS 
8R 
I 

BIT »1»R1 » .. 

CHKO'^P I 
«2000piHTSW 
CHkDhP I 


I IiMOICA'TE read characteristics REOUEST 

I 


I GET RET'JRvEp SET/SEMS E STATUS W0RQ 
I TAPE PEnSITV boo IIP I 7 

I •. 

I YES, 


«4,R1| 
mtE^t I 
«600CO,MTSW 


«20,Rl » TAPE P^ST E-0-T MARKER T 
mtlstf J 

#1000, MTSW I YES, 


#40, Ri » LAST Command EncBUntFRED E0F RECaRD ? 
WRTlCk I 


#20o, hTSw 

#2000, Rl 
MT7CM J N0, 
#2000, MTSK 

#100P0»Ri 
HTi.nPT I 
«10000#MTSW 

#20000* Rl 


I INDICATE tape PAST E0F 3 
I WRITE 1.7CK tN'? ■ ‘ 

rvEs', 


i UNIT IS 7-CHANNEL ? 


I 


RTNSW I NP, RETURN SET/s£‘jSE WZRD, 
#400*mTSW I YES, 


(SP>*,R1 


I REST-’R# PESISTERS USED 


K0V 

CLR 

RT8 

Ql(<DPBt QI0S 

I 

I 


MTSwi»4<S5) I 

»6(R5) I 711 RETURN RESi:)l,E C^’WM .2f_Z£S 
PC I 


I0.RLeiO«li«HTSMn,Oi<O.O.O,O> 



17. LIN.PTN 


ENTRY POINT - LIN 

Line INput with character checking. Input a line from device 
number II and checks for: 1) X, 2) B, 3) R, A) CR, 5) normal 

data input, and 6) routine commands to change the value of TI. 
See CTR documentation. 

# Calling sequence 

CALL LIN (IO,L,TI,I) 

Go to (1, 2, 3, 4, 5, 6) , I 

1. X entered - exit immediately 

2. B entered - go to previous query 

3. R entered > restart program 

4. RQ > ask query again 

5 . CR entered 

6. Normal data entry 


/4r 




.J 4 FPRTR^N-iV-?^U 5 ..V. 52 rQ<.. 
. tl^.PTN 

^ A A M A 


0001 

0002 

0003 

0004 


/T^lBl.i^CKS^WO 
su 3 R’uTi‘-t UMU'’iLif.eiTiiruAtt) 
IMPLICIT IMTtGEP (A^») i 

PyTE LlNE< 74 ),LUTAr.(lO>«LUNK.ATr 
data atp/i/ 


.14117.142 3l-A'J6-77 


PA0E_1. 


C 

c 

c 

c 

c 


r.L*a-s 


2 

3 

4 

5 

6 


0005. 

0006 

_99.99_ 

0007 

. 9000.. 

0005 
0009 
COlO 
JQll 


0012 


0013 


0014 


0015 


0016 

999 

.0017 


0016 


0019 


0020 

9910 

0021 

9911 

0022 


0023 

.9-40 0_ 


PE5?T*RT 

PEQUPRY 
C/P 

^3.7HAL r'Pl'T 

I rij i;.E 0 . r j - ALL..suip.iJT.< n 

PEAD(Tl,POnO,ENL«9PiO)(L!NE(l ), lal,74) 
F'?PmAT< 7 ^A 1 ) 

CAUL F««1^JT(LIK'p,74) 

inLIf^PlD.EO.'s*) 3P Til 970(1 ... 

IF<LlNc(l),cC3,M*>03 T:'» 0450 

iriL 1 : . a )... e ^ J JJ iL ii 51. T1 .. 2 ■5 OJl 

1 F(L 1 .' E • •) Gr T/ 9^9 

lF(LlNt (l) ,cQ, •?>' ) G? T4J 93 0 0 
1F(LInE(U.E0,'R») go Til 9300 
lF(Ll,'r(l>.EO,»X*) Gfl.TlI 9l00. .. . 

Cr4^'T InUE 

...FLAG. 2. 

1F(L!mP( 1) ,EC, • • )rL*a * 5 
METUP'J 


IF(ATF,E0,l)''-RlTC(13,99a )TI 
F(1 »MAt ( * ENU-OF-FlUE c' C ’U.‘ TEREb 
GO T!’ 9912 


flN LUN...V,.|2,.»i «K_ ASSUMED, */) 


0024 



0025 

9450 

l0,VA5l)Lr'E 

0026 

9451 

F3««AT<' »,V4A1) 

0027 


fJ0 T-i 9999 

. 0D?d 

9500 

C0MTl.vUE 

0029 


_ L? a 1 

0030 

9531 

UP a LP ♦ 1 

0031 


IF(L'’.‘JT,33)3ki jr 9502 

0032 


1F(l1.nE<UP),'.E, ' ') r,3 T;' 95Q1 

0033 

9502... 

UIAE(uP)’0 .. _... . 

0034 


1F« ATr.E0,0)CU3SE<U:\ilTa3) 

0035 


ATF a 0 

0036 


CII’PN < U’'! Ta’3 , NAvEsU 1 ,NE ( 2 ) , T YPP"* ' 

0037 


UU^■': s U'.l^'' ♦ 1 

0036 


UUTA'3(LUNi4)»TI 

0039 


T1 a 3 

0040 


'3 3 T'l 9999 

0041 


IF (Ul''-P<^),tO, '-<!J G" TO 9v9i 

0047 


IF (Ul .NS, 'F* ) T.3 9?99 

0043 


UP e 2 

0044 


CAIU tl«TFF(UP,Ul''t.74,TI ) 

0049 


ULi’-N a U'JN‘( ♦ 1 

0046 


LUTAP(Uu‘5M*TI 

.00<7 ... 


... kP.. a..LP ♦. !. .- „... .. 

0046 


IF (ur>( (UP) ,ro, ♦, * )up a UP ♦ 1 

0049 


CAUU FP ;'iT(Ll(^P<UP)*75-UP) 

0050 


IF(UInE(I.P),PC.' ') 52 T1 9240 




raRTRAN IV-PluS V0?-04 i4l27l«2 3l«A'JG«77 PACE 2 


J. 1 M »riil /TRi^LgCKS /tJR 

0051 UPP ■ Lo - 1 

0052 92ni . tPP • tpP ♦ 1 . - 

0053 IF(LPP»GTtLP*3l) U.? Tia 920? 

0054 IF<L»f •) 3? T3 9201 

0055 9202 UI-J6(lPP>«‘'’ 

0050 N£ikPl^y£FJLi..LP±JteADMlJf,L 

0057 60 Tfi 9999 

0053 9240 lF(Tl.fcCI.IP)60 T3 9290 

0059 03 T3 9999 

0060 9250 iralvfc(3) #fJEi ' M O" T3 9260 

0061 9912 tUN'N « LUnN - 1 

. 0 062 If. I.Ly:^^!- E ..0.i_5i_l£...9251 ^ 

0063 Tl s L''1*^<LUNS) 

0064 T? 9999 

0065 lFU^riSl,0)CL^?*S'^UiMIT«3) 

0066 . . . .. » 1 — - 

0067 oe T2 9290 


„0064 ?J5i. 

0069 

0073 

0071 9260 

0072 

0073 

JlO.74 

0075 9269 

0076 

0077 9298 

0078 

y 0079 9100 

• _ooeg 

Ob'Sl 9300 

0002 

00 S3 9290 

. 0084 

0085 

0086 


_iy^!L..sja t 

Tl « 1? 

G0 1*^ 9?90 . 

LP ■ 2 

CALL lVTFr{LP»LlVE,74,L0‘iC) _ 

CL3SF(lNlT»LUNCiniSPk^SE»'SAV6* > 

_6& T*’ 9 999 

tr. IP , ^ 

WRiT'=(l}ii929«>(U!K'=n6)|16«l,7^|. . _ , .. 

Fe«hAT<' r'PJT LINE IN dRR’'R. LINE F0LL0WS,'/* *#73*1) 

50 TkJ 9^90 

FI.AG • 2 



FLAG » 3 

return _ _ 

■ C0NT1.ML’£ 

FL*S «, 4 

return 

END 


/^7 


18. RREAD 


This program is described in reference 1. 


/?P- 


HfffRTPAN 1V-<»1,0S V0j-ft4 _ 3l*AUG*77 __ 

■^mOtrfN ■ ■ /TP|nL*’C<S/WP 

0001 sgBRZun^'E sPEAO<uuNiruia )^‘iP‘>M2iBCT,fe^r,p'?Tr) 

0002 Implicit iktc&er «a-7> 

0Q03 C0Mm3ni/I"LP/I!J,lp . . 

0004 CflMH?*; /STaTUS/S 

__5005 C7>‘H'-‘,/r»T*L/Z^,PR 

0006^ INTEGER Hur(DiSi2) 

0007 iNTEGfeH •’MTY|E‘r,tirT,PRSIZ.ril,l.UN 

0006 iKTcGC-R CU(2) 

0009 OATa E^r^-XT/O/ 

ooto Fer a 1 

0 W RITE ( LP J 5 P 0 0 lililxER S I ? 

D3000 r0RM*T(* STfcP 1 'i?IlU1 
OQli .inrii,£C,o> c- T0 1 . , 

D WRITE(LP, 3n0l> 

P3001 P0«m*T‘‘ Hl.'H???*///) 

0012 PCVT • 20 

_gou p.Rj?*ip'<siz*i>y .2 

0014 3 CAI L TRtArCL'JN,bi;F(7)|PR';) 

0013 lMS<l>iE0.''37')''n T? 7 .. 

0016 lf'(S(l»,''B.'’366> G’ TJ 2 

..0017 3 E?r • n , 

0015 2 PCT •» S(2) 

H WRUiiVP.i.JO.G.ilf'lj 

D3004 rnPH*T( • UCT • ' , IlO) 

0019 RETgOs 

0020 7 PC^T ■ PC\T - 1 

0021 _ inPC\T,LE,0) 02 TC 6 

0022 CALL TSKIP(LUN.-t) 

> 0023 Oa_tU 

0024 9 PRTy 1 PRTY ♦ 1 

0025 _ 02 TC?_2 . . _ ^ 

0026 i C2 NtIkI'E 

0 XRlTc(LP,3002)FJ!rr.'XT,POSii 

D3002 ">2WwAf(i STEP ? ',2110) 

0027 lF(t--*r^XT,EG.l)., f.;; TO « 

0*028 CALL rVREA'"(LU'l,.!gF, 0(^517) 

0P29 CALL rVL4lT(LUM,«i) 

D WRlT';(lP,3C03)(bjF(n,l8i,10) 

D3003 F2Rm*T{* M^llO) 

0030 '»R 8 0 

■ 0031 

0032"' ~'0!S 5 lE*i,2 

0033 5 ina'JFn?).MP,0) cri T2 6 

0034 EsrNXT * 1 

0035 6 DCT • flur{4) 

P ■ viR!Tc(LP,5n32>{r,or<X),X*l,6),aCT,PRSlH 

0503? rC'*’'^ATC' *,8!10/) _ 

oc3o TF'(p»srz7to,'>cnptTijfiT'‘ 

0037 RR »0CT _ 

C* ■ RR 0 IS E9R‘H'P0C3fin si?fe' 

0038 PCT 8 'CT.PWSm 

0039 lFtL.!riXT,rQ,3)CALL F V2S‘-T { L'.N, B'JF (1 ) , 9UF (2) ) 

_.0C40 Pi;Tk'.ov 

0041 4 EiJF e 1 

0042 EL'F'vXT'O 

0043 RgTij'>*; 






renrn^N iv*i>lus vox»t4 i4i2Aios si«4u6»77 

PKCAOim /TPl’^L^CKS/NfiL 

0044 CNT4V •<s'<lP(LUN,rii,istMP#«»gr) 

004f . USKIPflSKJP 

0046 ircrU.GO.O) 6“^ TJ) 101 

0047 CALL TSKtP(LUN«LSKiP) . 

0046 102 PtiTuH; 

03L<9 m__lfJJ..SK.lp4l'?.,Q)B6TgaM 

0090 LSKlPiU)8(tSK|p) 

0051 . ..30*1 

0352 1P(ISkIP.LT,0)OQ»5 

0053 QPI«0Q*1 


i5ejo4j*oa,oPi 

iF(Burtj),^c.o)crToio5 _ 

IP(»-ST>N^«0)CA).LfVQSPT(Li)NiCl(l).CL<2)) 

«£TU'»N 

CALL rV0S6T<LU^»‘»UP(Oa)|-?Lr<OO*l») 

Jf U .fif ,LS'< iPl.StT.U'J'L 

CALL rVD'J£T(LU-J.CLU).CL(2)) 

CALL Fvaf.Aoag*'.-’iir*5i?j 

CAU rV^tlKLO'i) 

hRlTP<LP#3n03H«<Lf(X),K«l,10) 

rsT.i 

J...« .. J„*_ 1 

r,a t2 107 


PACE 2 


19 


SHELL. FTN 


Sorts an array via the method known as Shell sort, 
e Calling sequence 

CALL SHELL (NR,RS,B,P) 


Argument 

Type 

Dimension 

In/Out 

Description 

NR 

I 

1 

In 

Number of records to be 
sorted 

RS 

I 

1 

In 

Size of records to be 
sorted 

B 

I 

(RS,NR) 

In 

Array of records 

P 

I 

NR 

In 

For 1<I<NR, P(I) gives 
pointir“to row of item 
B (.,1) to be considered 
the start of record 1. 


There exists a version of this called JASSIP in which B is a 
byte array, which makes a lot of difference on this machine. 


- 

SHEUL,FTN /TtM^LiCKS/^a 


,Hi2al2S Sl-AVC-7.7- 


1.MTK(5p« vh,«S, »»{•;»), I t 
iNTElEr *#«C^S.NH) 


0004 


H » \K 

ftOftS _ 

A 

M ■ m/2 

0006 


ir(N.fu,3)R6Tgn\ 

0007 


. . . 

OOPS 


J • 1 

0009 

2 

t«^ 

OOlC 

3 





M„30.1.L * liRS-. 

0012 


U1 ■ 

0C19 


tr(LU.GT,PS» 

0014 


U2 « 1 2(1 )-l 

00?S 


IF(l.U2tGT.ftS.> 

0016 


ir<U(LLX, UT,. 

_eoi7 

JJ-Cl. 


OOlh 


Ga 4 

0019 

303 

r>» 102 1. • li«5 

0029 


« ■ 

oo?i 



0072 

302 

« { !, , U ) « '• 

J)3?S 




0024 


r(i )«t»c !•<) 

. . 0025 


pUm)*! . . .... 

0026 


Id--^ 

0027 


iru.GT.i) 

0026 

4 

J » J ♦ 1 

» _03?y, . . 



0030 • 


CJ T.' 2 

0931 


End 


T" JC3 
at<*i I ) ) 


Ta 303 




20. [300,6] SUBSTR 

S«« vclvfflM 1, sttction 3.5.2.10.8.1 for doscription. Listing is 
prsssnted bslovr. 


/33 


14I2BM6 ._3LrAy6^1.?. 


Hry»TR>.M 1V»PL US V 


SUPSt»ifT.’< 


/TP|7Li2C<S/l*« 

, 0001 


$U»a^>un^t SU3STU(A.I|’J| 

0002 


lf*PLlClT ;mT!tGGK (A-7) 

0C03 


LPSICaL*! 4(l)ie(l) 



data fiLAVK/2H / 

0t55 


1S»! _ . _ . - 

0306 


JS = J 

0007 


L»0 

OCffi 


IF(S .EC. 0) G? T2 20 

0009 


LsN 

0010 


ir< L .GT, M > LsM 

00 u 


03 lO -^sj.L .. 

0012 


3( J5)8*ni>» 

0013 


IS=IS* 1 

0014 


JS=JS ♦ 1 

0015 

in 

Ce‘4Tl.\UE 

0016 


ir< V .OE. RETURN 

0017 

2f> 

L»L *1 

0018 


D8 30 Kst.K! 

. 0019 


R(JS»=*^UANi< 

0020 


JS=J5*1 

0021 .. 

3C 

CPV'TIfiJE .... 

0022 


RETi)R\ 



.LN^ 


21. [300,6] THMLOP.FTN 


The subroutine performs the logical operation between two theme 
tracks and the results eure output to the third theme. 

• Calling sequence 


CALL THMLOP 


_ Mr flRTR AM. 1 Y.-PLyS ..yP2rJJ< 14 l.2s» ig 3l*Ay6-7.7 PAGE 1 

THNl.PP,rTN /T«I‘’LPCKS/^^P 

0001 SUStRPiiTlNE TuMUi^P 

cccccccccccc':cccccccccccrcccccccccccccccccccccccrcccccccccccccccccccccc 

C LflAQ FU^CT1«'M THrh?: A« 6 Pf;RPepr. Af'Oi X,JR, SUB, 0UTPUT TP 

C TwEmEC 



ccccrccctcrcccrcccccccccccrcccccccccccccccccccccrccccccccccccccccccccccc 

0002 I^'PLIClT (S-Z) 

0003 KYTc W.FUN.THrtrer 

0004 '•'(74) jX<?56,2),V(?!>6,2),THMD£F(4) 

0005 TH''2fe'F<l >e' A' 

_00Q0 T.M‘’Drr(',l)ai 

0007 TH'-OEfTsJs? 

OOOfi TW“DCF(4)*3 

0009 10 csMTuue ■ 

OOtO write (6i100C) 

OOU inon fsiRMATUX, *SELCCT LtGlCAL -^P?iRATieN« ) 

_0012 WK1TE<^1001> Thmo.c;f<1> 

0013 1001 r^RMAf ( IS*; r(V)Dp "•,s)yi?Ti?ArTiA(\)D7tEyxCLU P »7Jl, IX', • > M 

c RfcAo '^PTiav 

0014 afcAO(6,iOlO) W 

0015 10X0 Fk)KMAT(7'»Al) 

0016 Caul rWijE'T (w,74) 

_0Q17 Lf <'<<1 »X'_) 5: _TR 450 _ 

0010 ir(W(l).f:Q, 'R' ) G- T>« 10 

0019 If(y(l),FU,* •) Ru TO 150 _ . _ 

0020 IF <4(1)'. to. 'A'.i?R,v(l).t'), iS',;'RVm1).EO’, 'N • , 0R, w (i ) ,'EO, •£•) 

X G-’’ T3 l50 _ _ . _ 

0021 GP Tf 1C ■ ■ ' : 

1_0C22 J5i C5iNTl,\;Ut , 

0023 I F ( U ( 1 ) . F OT'’ A • r T H •' D F F { llV . a ' ' 

0024 _ IF (R<i > ,EC, *S' ) THiDFF( 1 )s«S' 

0025 IF ( j<i) .feo. ) TH>r>Eni)»';v' ' ' ■ - • 

0026 _lF(w(l) .UQ. *F' ) THnDFF ( 1 )= * E * 

0027 ' F'U.*i#TH“nEF(l) “ ‘ 

0 C23 lF(Fi!f,,5C, • A' ) aFO' =‘A'’D' 

0029 Tf'cTmTiEC. •S'"') Aru 

0030 1F(FU\,eO, *N' ) aF(J''» •a'-D' 

0031 ’ IF(FU\,fO, »E' ) Aro.‘i**6i.?R' 

0032 100 Cy.‘T!,\ub 

0033 ' WM1TF(6,1030)' TH‘'LFF(2),TH‘'DFF{3) 

10_03A 1030^ F0C«aT( *t«SEUFCT lw<>UT , IX , 1 1 , 2X , 1 1 , 2X i ' > ' ) 

C HEAD THf«E a" A'.y THfcMC “b * “ 

0035 F(fcAa(6, l040 ) ► 

0036 1040 F.'.RmA r < 7 “A 1 ) 

0037 CAUL FR/NT(W,74) 

003a lF(w(i)',Cc, 'X' ) T 2 450 ~ ‘ 

0039 IF (w(i) .Fq. in« ) r,/, to )0 

~'604 0“ 

0041 

0042 

0043 

0044 

0045 


00«6 

0047 


IF(W(l),tQ,' •) 5,1 T.-i 250 

KsC 

CALL lMTFF<K,W,74,fHEMEA) 

CALL FRpNT(«,7<) 

CALL I''.tFF(K,W,74,THF‘163) 

_IF(TWE^’FA.LE.O. jR.T*-<&vEA.GT.P,rR’.TMErtEB.LE.O.aR.THEWEB.GT. A) 

X Sic T • 102 ■■■■ : 

G? T7 10^ 

102 CPVTIn'.'E ■■ ■ ■ ■ ■ “ ■ 

f 


2 



jic 


p/pp' Ik 

Tv.-,- JS 

quality 


o o o 


F0RTRAH IV-PlUS V3?-C4 14i29liO 3l«AU6*«*7? PAOE 2 

THKL?P.*£la-- /!•’ S ?L‘’C‘tS/J!S 

004S viRIT(-(6,106) 

0049 106 IX.'PUT ?F RANCg. J J.P) 

0050 GB TP 100 

0051 - .104 C0NT1NUH 

0052 THMnf-r(2»«THeHCA 

, M53 < 3 ?.8.TH!= NPfi 

0054 250 THg^'!FAeT^>^!C^^F<'2) 

0055 .. 3) 

0056 300 CB'.TInUI: 

0057 .. . ‘iRlTFtfr.UOO THMDEFP) 

005B 1100 FL'PK4T( '5SFLF.CT "UTPUT TMfcMgi » ilXi llilX, •>' ) 

C _R c AH. J1U.IP.U I- JilEil£_C 

0059 P(:AC(6.112C) fi 


0060 H20 f k!R.'<AU7/'Al) 

0061 Kbq 

0062 _. call FP;:‘^T<W|74> 

0063 IKw<l>,FC. *X* ) G7 Ik 450 

„Q06 4 LOiii 11 , F a J.fllL JSti-r.?- JLOO 

0065 ir(w(i).c0.» •) ^2 T7 ll?l 

0066 . CALL r«T' 

0067 IfaHf^cC.ut.O.i^J.THEkkEC.Gr.a) G5) T0 302 

0066 Ga TP 3|J4 _ _ 

0069 302 CBNTlM'c 

...0 07 a w R 1 T£_ .16 1 3 1 til 

0071 306 re«'<*T(lX, 'BUT 0F RAMGE IP.*) 

. 007.2 G? TT..300 

0073 304 CPN'TiMUc 

0074 THMDSr(4)«TH6MeC 

0075 ll2i CCNTlNiUc 

0076 THE'iCC.s.TWH:>Erj-l) 

0077 WRrT=(6,ii22> THFMPA, AFU J. ’•HFHto, T hEmEC 

0076 1122 rP9MAx<iX, iTwEf'6 L^ClCa k^’E^-'AT I ?N • , / 

XIX, 'TneMEi,r,j,2x,/-3i2x* PhEi-E', i2i2X,*»', ♦ THEME', 12) 


0079 1123 CBNTlNUe^ ^ 

OOflO ’ * 'WR1TF(6,1124) 

0061 1124 F0RHA TC ' "P^^CEE D (Y)e S /(^OP >') 

'006 2 ' R£Tar5,ll25r'w 

0063 112* Pi3RMATt74Al) _ 

0084 CALL PR!''P(k:.74) 

0085 lP<W(i),tO.'‘J') G0 TA 10 __ 

OOS6 lF<W(i).tQ,*v») th 443 

0087 _G3 T3_ll2_3 

0063* 44*5 C’0MTIVJr 

C READ TNi-Mt A « Ti'E tfe 3 I'P” X,Y AND C0MPUTE AND,8R, X0R 
C SURSTRaCT them viHtTC- RESULT 1* ^3 THEME C 


0089 03 450 l1*'^i32,32 

0090 00 450 L'<?an,l 

0091 - 00 45_0 

0092 ■ " ■ i.pE»Li»l-2*L3 *■ 

0093 Call I-^TCTiit^cAiH -i£,l6,X) 

0094 Call "‘it 

0095 CALL IRt(ThEmER,LPiE,16,,Y) 

0096 CALL .PIT 

0097 jr<F‘v'.N,E»i.'A'.)..G?.T6.22 

0093 ir(r;'N,cJ. 'S' >G'* Tt' 26 

0099 |F(F'JN,£3, 'N' ) G3 TO 20 


/?7 


_THHLV.i.f 

0100 

0101 

0102 

0103 

0104 

.JUP.S 

0106 

0107 

0109 

0109 

0110 

JIU 

0112 
0113_ . 

0114 

0115 

0116 

_0J.17 

0116 

0119 

01?0 

0121 

0122 

..II123 

0124 

0125 . 

0126 

0127 

0128 

_0.129 

C130 
0131 
C132 
0133 
, 0134 
0135 


IV-Pl.US V02-04 14129110 

xy 

inxu%,f;0, *6' j «>■ re 24 
20 C0VTIMUC 
D0 26 Kl>1.2 
D0 ?P K?si,2'!6 

2P X«K2,<l)5JANr'<X(i<2,M), V(K2 ,kD) 

On? T-’’ 

22 C4)M1\"F. 

Da 3C W131.2 
P0 30 K2=1,256 

30 X<K2.!<l) = IfR<X(K2,Kl) , Y(K2 ,k1) ) 
GO TJ 36 

24 Ct'NTl 'lUt: 

U0 3> <l = l',2 
00 32 <2=1,256 

32 X(K2,Xl)sin0R<X(K2.Kl),Y(K?,Kl)) 
G0 TS 36 
26 C0NTl;i'.IF: 

00 34 ^<1 = 1,2 

D0 34 «2=1,256 
Y{<2»KI)=IC0«{Y(K?,K1) ) 

34 X(K2,Kl)»JiND(X(<2,Kl) , Y(K?,K1) ) 

36 CavtlNUF 

CALL r'T(TMEH6C,LI».£,16|X) 

CALL_VJA_iT 


31-AUG-77 


PAGE 3 


45c CavTiN'jg 

KRJT£<6,U«0) 

ilOC F0‘?HAT( 'i(R)6START 0R E(X)1T >*j 

WEAD(6,l20f) N 

i?0C r0RMAT (74A1) 

J 'it 7_4 )L_ 

IF(W(l5'.f O, *R* ) r,;! T2 10 

1F(W(1 J'.tG, 'X* ) G0 T0 1220_ 

G0 171 4<i0 

1220 COVTlKiUE 

RETURN! 

END 



22. [131,140] TWRITE.PTN 


22.1 ENTRY POINT - TWRITE 

The subroutine TWRITE writes the clusters and categories assigned 
to themes on to the I-IOO. The assigned clusters and categories 
are passed to TWRITE by the common statement LOCOM2. 


e Calling sequence 


14i2SJ±J J l_-.AU.fi- Z2 


5AC£_i 


HrPRTRiN iyOLUI_V*’2-ai 

TW«ITE.Fr4 /T'»J';i.?'C<S/K« 

0001 S0«9'\'TIN£ T'-RITP 

0002 1‘1?L1C>T (A-£> 

0003 DI‘'5^Sl»^^! CH\S<<«0>.lX(5l2>,iY(5l2)iTX(5l2)*TY(5l2> . 

0004 niMj. ;sl0‘J PIV(?5Si9) 

.0005 3Y.TE.y<4096}.. 2UF-(1961 

0006 EQt'l’/Al-E'iCE (Y<n,PlX(l,i)) 

0007 /23‘»«/lC( A). TC(<), IXi l.ViTXiTViMX.l^Y 

0008 /L0CO'^2/C''.ASK 

0009 ir(y.Y,5T.12d> Gi3 T? 5 _ .. . .. 

0010 MYlslA 

001] ^?.■'■,Y/;'Yl 

0012 ir<‘-Y..v*MYi,‘ifc’,o) N*\'n 

0013 60 T3 8 

0014 5 Ci?mtIK'<.'6 

0015 .. NsB . . 

0016 MY1sMv/N 

0 0 17 I F ( Y r Y 1.. r £ ,iJ.] .. .■! Y.lS.'ill *1 

oold « c^NTiNtje 

0019 ... 02 6? ULsl,r!Yl 

0020 L*LU 

0021 . . Off 10 l*liN ..... - 

c 

£ .PJ: AiJ.H.A.'L'i. JLR.r.r'.-CHAJiNEL. F.I V£.. flOS..J»R0CES.S LUG. 

C 

.0022 . - call. IRV<5. lY(L)|PlKil. IJ) - 

0023 L=L ♦ MYl 

0024 _ ira.ar.^Y) co. t'*.i5 

0025 10 CDNTlNUr 

.0026 1 5 J F ( '■' ,.L £. ..4J_ .C A L L . !< A II 

'. 0027 L=LL 

0026 P’^'12 s 0 

0029 O'’ <0 l»l,fj 

C 

C '■ read CLUSlER f-'AF FILE 

_C 

~0030 ' ** READre'TV'd)) dUF 

C _ 

C PROCESS THE nATA FR2M CLUSTER MAP FIlE 

C “AK1PUL.ATE The Th£m£ DISPLAY ACC?RDl*g6LY 

... . c 

_003l ^00 50 LL^'FsIiMY _ 

0032 IN s iXlLPr) ♦ P512 * 1 

0033 M s If.YT!;(r.-l,V) _ . 

0034 k eTX(LI'-'f) -1 

0035 CLUSTR s I UYT'. ( k , '-.ir > _ _ _ _ 

0036 IF(CLl'3TH',tC, C ) Q:' TK 30 

0037 _ Y(pj_) s 1 (’R(“|C'iASK(CLLS.!R]L_ 

0036" * 30 ' CPNTiMtii" 

0039 L ■ L ♦ NYl 

0040 IF (LiOT’iMV) 30 T0 45 
C 

C INCHEMFNt pointer P0R Y{NY) 

' 0 0 4 1 p 5 i?. ' P r '* 512 

0042 4n C0'iTIN'i.iE 

C043 43 L»LL 



23, 1300,6] VDALTR.PTN 


The subroutine VDALTR erases the full (Channel 1-5) window which 
is in globe common (C0M 4) . 

• Calling sequence 

CALL VDALTR (ML, MT, MR, MB, CH, IBUF, IND, FLAG) 

Argument Type Dimension In/Out Description 
Input 
ML 
MT 

coordinates of window 
MR 

MB 

CH; channel number to be erased 
IBUF(l) = 0 
IND = 1 
FLAG (unused) 




2 


...MfJIRTRAHJ.Y=PLMS..V02?0l ^4l3Q.lfi7 3l-AU0*72 PJ^Qe_l 

VOAUTRtrtN /T»»l‘^UPCKS/kin 

0001 SgORPuTlNE VOALTR(XgiVU,yLiVLiCHMwiBUFP,|N0»Pt*C) 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

c 

c alter video screen 

c . _ 

C rR(*H COORDINATES XU.vg T.* XU.Yl 

C BY“l'Hi^iirfENfs 7IF‘ THE BuFFEp P^SS^ 

' C ■ ‘ ' 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 



c 


0002 


IMPLICIT integer 

(*•?) 




0003 

C 

c 

. s 

byte T6gn5l2)4BUFFm 




■ 

0004 


IF <XU .LT, 0 , 

(HR'. XU ’.GY, 511) 

Q? 

T0 999 


ooos 


IF (XL ,LT, 0 . 

?|R'. XL ‘.GT. 511) 

GO 

TC 999 


0006 


IF (YU .LT, 0 . 

t>R'. YU '.GT, 511) 

.G9 

T0 999 


0007 

r 

IF (VL ,LT. 0 . 

3R'. YL '.GT, 511) 

G0 

T0 999 

— 

y 0000 

V 

LNCT » XL • XU • 

. 1 . . 




OOCv 


PXCT B YL - XU ♦ 

1 




0*)10 


IF (LNCT .L7. 1 

.2R. LVCT .GT, 

512) 

G3 T0 

999 

ocu 


IF (PxCT ,LT. 1 

,5!R, P*CT .GT. 

512) 

GP T0 

999 

0012 

r 

.. IF (ChNL ,LT. 0 

.^Ri . CHNL .GT. 

.5) 

GO T0 

999... 

.0013. 

w 

K » 1 





0014 


CHST • ChNL 





OOlS 


IF (ChNL ,nE, 0) 

G0 T0 50 




0016 


CHNl « 1 





0017 

r 

. CHST f 5 

* - ' - — 



— 

-- 

„O010. 

j?e_ 

re lOo j'YUiVi. 





0019 

r 

XI ■ K 





0020 


D0 lOO CtCwNLiCWST 

— 

. 

_ . ^ ^ — ... 

0021 


CALL IRV(C»I,T-*UF) 




0022 

_c 

CALL wait 





'0023' 


K ki 





0024 


De 110 UsXUfXL 





0025 


T9UF(J»1) ■ PUFF(l) 




0026 


IF (InO .EO, 1) 

Gfl T0 ir5 




0027 


T0tir(j*l) • *}UFF(K) 




0020 

105 

X . 1 . K * 1 





0029 

110 

caNTi\ue 






C 

CALL iWV(C,I,TRUn 





Vf , ^ 


0030 


ff^TRAN 

IV.PlUS 

V02«C4 

VOALTRifTN . 

/IRlPLOCKS/iiJ 

^ 0031 


CALL mAIT 

0032 

100 

c 

c 

CO^TlNWg „ 

0033 


TlAO t 0 

J0J4 

_ ?(L0 

return 


c 



c 


003$ 

999 

RLAO • 1 

0036 

C 

09 TR Poo 

> 0037 


ENO . _ . 

- 

> 

# 


14130107 Si«AUG«77 


»A0E 2 


24. [300,6] WINDER.FTN 


The subroutine WINDER consists of two subroutine BLKTHM and 
VDALTR which erases the partial or full window. 

e Calling seguen'^e 

CALL WINDER 




,l4l3e.i?J 3i»AU8-17.... 


MFRATRAN \STflki VP2?q 4_ . _ „ 
MINCEAirTN /THjPL‘^C«S/w4 


.f.AfiE 1. 


oon 


0002 

0003 

0C04 

0009 


sg^•R?uT|^E wjNntO 

CCCCCCCCCCf'C'^CfJCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C . wj:.'0:*w 6PAS6 C 

c #*#wt c 

0CCCepCCCCCCCCOC(!CCCrc^CrCCCCCCCCCCCC.CCgC.CCCCCCCC.CCCCCCCC.CCC6.C.CCCCCCCCCC. 

P’s-’uicir i-rrirwcA-xj 

IKCL'.IOC 'S»IC3'’0#35CAmSC.'M^N, l\C» . 

INCl'J:iP •SVIt3lO,3 3C*'^PPA*»'^'. h'C' 

PA‘?A”tTFH ■'iAYCiT*Mi*'AXSt'iiit60»‘'*XCHN»4, NP|*«l96i>iLJN*ll7|HAXri.t)B50 

l*MAX''tni\lHTS«2n9,DuS<pilOiCSS'<lP«lO,MAXACr'*6.MAXACC«4i 


0006 • 
0007 • 

• 

oooe • 

0009 • 

,.oiio_* 


1 NZiiTw’itig, ... ^ 

" EQlJjVAteNce (Cl, ACOATE), (C?» tSfC), <C3»PrLAC), (C4 iTXI>i (CS fOlSKIO) 
1NTC3LP Cl(469),r2(2?0),C3(?U,C4{34JJ,C9(629> . 


lNTEftE9 AC!)ATfeiS’Jt'CAT,SU“P‘’f’,CATXNT,CA7TH 

PVTE C‘''-iVEC, Vk5C.,AV, \PSOK#D 'TCATiOOTCLU 
_£.^*‘f^:'\'/C''P;l/AClATf (2,»tAX*C:),tw^VtC(“**CMN,'1AXACC),N6CMAN,M0SU9,„. 
ISU^C^T (••AXSuP),SUrt''»*P('^AXS' tn,CATK»,7(iAXCAT>,CATTH(HAXCAT),N0D0, 
2NPUU»'^''TP,D^TC'T(M:t'TS),r!:TCLC('vO?TS) 


0011 

0012 

...0013. 

0014 

0019 


» 


0016 


c* 


0017 

0016 


0019 

0020 
0021 


0022 < 

{ 

0023 

0024 
0029 
0026 
0027 
0026 

0029 

0030 

0031 
.0032.. 
0C33 
0034 
0039 


lfjTEr,|:9 AOAT£S,Sl"JAt, AVALST.runUAy ,D?Tr.AY,PDATEl,TOATEl 
iNTfcr.:;^ P0ATP2,T’'ATt:?,PD/ lej, T''ATfc3,CATNAM,DlSKlD,4AN09M»0R!0 
BYTE Dr.LrL5,^2AC0»S aP^i NT YPEl , ALPi ALP® — 

BYTE PC’CT,PCTrT.*,'/A», VA ?2 .CLAtI:L,TYPE 

CH“ '(?N/C>^*12/I6Fa,DHLTLPr<^'C'.', A^ATF? (2, haXACO) ,SP1lCP(HAXACD5 , 
iSU'JEl (‘'AXACO),PJ'iAi»(''AXArDl , !>"i*TE (2> • ANAlST( 9) »rL0DAY(2), 
20eTnAv(2),»iSTA‘^T,NTYPcl,?0'T-l(2),TD4Tm(2),PDAT€2{2),TDATF2(2), 
3PpATE3f2> ,T0 aT' 3(2) |f'-«CAT,f:iT.sA*'0'4XCAT) , alP(MAXCAT)# ALPO# 

_„4 PCJCT(VAXCAni''C^CT?,5(AR{1AXC.AT)iYAPP 

INTEPER ErLAGl,ErLAG2,EFLA'‘.3,ErLAG4|EFLA05,UPLAGl,urtAC2|UFLAC3, 
lUFL 434 

INTEHt-'i PFLA3 ■•'■kh\T 
C6PM:’s/Ct’Y3/.'?LAr', 'SKK*iT,ErLAGliEFLAG2,LFL*C3,efLAC4iEFLAG5,UFLAGl 
ljUFtAC,2,0FLA33,vrLA3<,‘'E*L.'.b(hA.XSLe.). 


J NT ErjjW Txi,TYi,TX's,TY?, AC''J^P,G,e,D7WlND,C0TAPY|CMlN,CMAX,FUL 
1NTE3PP SPWPC.CLA -O.CL'J-- D 

C0"M1\/C-^M4/TX1,ty, ,TX?,TY->, IXi, 171, 1X2, !Y2,ACPISP(2» ,111(4 ),G(4>, 
iB(4),r:,iNi-(‘;,*<'rT.r),*P'.r 3(5,'»'*spwn>, i‘',i!\’i(4),NuMO0T, 
2ni3T4'’V<\f'^TS),*Mli..G‘'Ay,FUi.(2,7),Cl A .N'; ( 4 > , CLU‘*'ND < B ) 

C/‘-n; v/c->'5/Pl'.AlU.RAM'«»-(‘ G;Ts),C9lO<^OaTS),DL4REL(NO0TS), 

PYTii 1 ^l,F 

HYTA , * 


_ «(74),ri,'»S?4(9» 

■pi'^E^SlrN loUFCl) 
CC/PS^A(ll»'’ 

C0RS*m2>»296 

CUPS'':v(3)»l 

CU9S.%U)»?96 

cgos''P<5»*l 

CALL 1-<(CJRS0R> 

10 C/vTlsJE 
FlACSiO 






riD7*AM IV.^L'jS Vo?*34 S1«AU6«77 ^aoe 2 

.„WlNOEfttf.T.'< 'tLPC! 5 S/>S * 

0996 ri.A80«n 

0037 WRIT?(A|20) 

0090 20 PeRHATCl^.'SeteCT wlf'OJW iv AaD EvtSR "CR"*#/ 


X 'Sw«£^' «6 aOY >*) 
0039 REA 9 ( 4 « 30 > w 

. .004 0 jaJJAa* V ( 7 < 41 ) 


0041 


CALL rR3'iT(W,74) 

0042 


If {H'(l»,f 0,'«') Of T'’ lO 

0049 


ir(»(l).tc.»«') 00 TP 60 

0044 


Call i^4<C"n5s4) 

0045 


P0 :i i»i,*vsp40 

-.0046- 


J f 1 S5 ( I iP ( ii U. fi t. f J. ,a:..T9-.32..- 

0047 

f* 

C6 TO 3i 


V. 

c 

search r3« spectral pl'"t Hif.nfcv 

0048 

V 

3? 

cavTi-jjg 


0049 If (Cs;^?’:<(?).i.T.5!P^ 1 .CUKSORi?) ,GT ,SP«IND(4# 1 ) ). OR. Tp 31 

“0050 ~ lF<Ct'^5*R(4).uT,SR‘<l'^i3<3,I)..’H.CUfi3aR(4),0T,SPWIND(5*in Ql Ta 31 

0051 rUAO'tl _ . .. . . 

0052 KR6C*l 

0053 «L«SP. I\P(?, I ) , . .... 

0054 nT»SPw!r C(3, I ) 

0055 K«t5PvJvD(4,.IJ 

~ 0056 *<a«sp4ur'(*j, i ) 

0057 GR TR 33 . . . 

0058 3l C0\T1\.'5 

0059 3a 34 '<i:l,Nar'T'>'D _ _ 

0063 !f(DT;.I\D(l,<<).£0,1.) CJ* Ti) 36 

» 0061 _ 00 T:1 34 _ 

' 0062 35 CaMTlWt 


C . 

C Sb*«CH rrsi DRI PLOT H'.p.V 

C 

0063 IF(Ct''J3’»(3),LT,DT*I‘.'0<2,K),'K.CURS2R«2)iCT,3TUlN0(4iK)) G? T0 34 

0064 lf(C'^5.»W(4j_.LT.rT>1^3(3iK).rj,Cii>i$0P(4).GT.OTi4l<^D(SiK)) GO T O 34 

*0065 * ■■ VuG’i*: ‘ * 

0066 f'L*'2Tv,I-vO(?,«<) . _ _ 

0067 MT«rTwI’.’.H3»'<) 

0066 *'R»DT.!‘.r.(4,K) _ _ _ _ . 

0069 " Md*0T«I v0( >«K> 

0070 50 T’ 33 

"oo’i' 34 casm ig 

0072 -«lTf <6,’40CJ _ . . 

0073 9405 rao-ATC'i, 'CiinSaP *2T IN T-E 

0074 G0 T-7 n _ . 

0075 33 CO'JTJsj.j 

0076 35 r4'jTl\J^ 

"oo7> "'■'■s'Kn-('«,40) 

0076 40 faRMATdX, »ScLECT ,'5'TlO’v wlNC2f| .tRASEi • ,/ 

X 'i(P)Aii7i.M, f4 (Dull. >•> . 


0079 "6*0(6,55) X 

0060 56 f J4»* ; { 7**n 


0061 _ CAI.L P«-r'T(-i74) _ . 

0002 ' * If < »(1> .r2, *a* ) r.O T,» lO 

0003 If(4<i>.'-i.*X'> GO T.* 60 


/y? 


rePTRAN 

Wl^DFR. 

0084 

0065 

0086 

0087 


0080 

0089 

0090 

0091 

0092 
0C93 

0094 

0095 

0096 

0097 
0003 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 
0103 
010 ? 
OJIO 
0111 


IV-PI US V02-O4 i n3C|26 3l«A')G-77 

ft:j /i.r»‘’l«'c-<s/wr 

IF(««1) .'■■Q. 'F' ) OF T!' 70 
lFH(l)'.cO.*P») G0 T3 30 - 
G8 TI* 35 

70 Continue . .. 
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_ . . E.RA S E ..F Ui. L. _h IKDiL K_CKA '1.N E L_1 - 5_ 


IN0»1 

ieuF(l)sO 

D? 52 Ch = 1,5 .... . 

CALL vnAl.T«(ML,MT,‘lR|MO»CH, I >^LF » 1 NO i FL AG ) 

...52 C«!\T.l.\Vc 

IK(FLai'.G.EO.I) SPWUl |i<RtC>a? 

. lF(FLAC-ri.EC,l) DTmM'l .|K)aO 

FPEi\(ij^1T=?,ma 16a ":30 0,1 3SCATX Vi T8P' I type* ' aLD' » access* *P1RECT' ) 

P0 54 Kiai,209 

na 54 <2*1,2 

5l,.lXVC<2iKl)*C' .: 

1F(FLAGS-E0,1) MRItE(8'K^u':,F.RP»56) ixy 

CL?S5(i.'\n = 6) __ 

GO TO fo 
80 COWTlN'-'L 
WRITF(6,100) 

1 0 G F OP » M ( ' t S E L E C T. jri'.F m fc T R a c.h; ._Mi ^ R E R. ! 0..BE..ER A Sf D > ... 

RtAD(6i3lO) W 

IIG rcHMA f (7‘=A1) _ 

CALL rP^i'iT(W,74) 

IFnv(i)’.FQ. 'R' ) ca T:' 35 .. 

IF(Wd) ,b'0, 'X' ) GO T?! 60 

K*C . 

call I TF' F I K , W I 7 4 , T h M L‘ ) 


0112 



1F(TMc’16.l:-,0i?RiT‘^1>' 

6.GT, 1) 

0113 



G0 TF li4 


0114 


112 

Citf'vTlM-'E 


0115 



iJRITF'6,116) 


0116 


.i.ijj. 

Fi!RMAT(lX, '?UT 2F RANGE » ! ! • 

01 IV 



G2 TO 83 


0116 . 

c 

c 

r 

.11^ 

C0NTIM'F. . 

- 

. . 


partial fc’RASF.W]\D>W 


.0119. .. 



10P*! 


0120 



IbUF(l)s0 


0121 



CAl.L fiLA.lH>'(^L>8T,>'R, 

Ml? j THPHI 

0122 


91 

CONTI 'jUE 


0123 



■•■tRITf ('>.90) 


C124 


90 

FilRyAT ( iX, i;»,C’Sr- Tf,i-.y(- 

traces 




XMPR'Cf bD ( V)cS/(f )?? 

) 

■ oirs- 



RLAD(a,??) b 


0126 


92 

r;’pyAT( 74A1) 


0127 



CALL F‘''.)'iT(N,74> 


C129 



IF(w(l> .60, IN ' ) T;i 

n 

012? 



lF(w(i ) ,F.O, 'V' ) G/ T" 


_.013i3... 



GO T'* Rl 


Cl 31 


■ 5J,' 

CaNT ! Miifc' 


0132 



b’PlTt(6»50> I 





Fe«fHA*l IV-PlUS V0?-P4 14I3CI26 ' Sl-AuC-77 PAOE V 


_JilKOfcBtFT,N /TP|'’L2C*<S/kT 

• 0133 54 rpRMATCiK', *D1 Sk' I/" PfiSOR c^ci^ll^TERf 6 ^'wEn ERASING' REC?!R0 N0 •V'12.' 

X / l*.*?f THE SPECTRAk PL?T SCREEN Ca^RPlNATF. FILE HP) 

0134 6C CPNTtN'.JE 

0155 write (6, 180) 

0136 l8f) F0 i^mat(*T'» •e(,'OASE A‘;3 tmER W1SD0W 3R E(X»IT >•) 

_C137 WEAn{6,l5».0)_W- 

0138 190 F0,7hat<74A1) 

0139 CALL FW,'NT(W,74) 

0140 IFCw(l),EQ.*R') ^9 T‘a 10 

0141 1F<W(1)'.60,'X*) GO Tf* 200 _ _ 

0142 Ca Tl" 60 

__C143 ^00. Ca'II.VtJE 

0144 RtUlRN 

_0145 end 


> 




25 . ZOOOM 


This program is described in reference 1. 



A f I ?1 « 71 1 31- A'.'Q-7 Z_ 


J?A5E_i 


Hf^RTRAN iV-PkUS V 02 " 3 ^ 

220fl1M,FT.N /T«|‘'L;‘:C<S/hP 

0001 SUSR‘uT 1'^E H''f"0M(IKlilYlilX?ilY2.TXlirVl,TX2»Tr?ilXilV|TX,TyiX2.Y 
1 2,MX,^v#NX) 

0002 IMPLICIT rrf;G'’:a <A-H) _ 

0003 C0mmM\ /rATAL/?0.RR 

.0004 ,Ca“^l7N. / 1 ■<iLP(' I" ii.P„ 


OC05 

0006 

0007 

0005 

0009 

(‘010_ 

OOU 

0012 

0013 

0014 

0015 

-OfilO— 

0017 

0013 

0019 

0020 
00?l 

_0022_ 

0023 

0024 
0C25 
0026 
0027 

..Q0?3_. 
> 0029 

0030 

0031 

0032 

0033 

0034 
‘0035' 

0036 

0037 

0038 

0039 
0C40_ 

"0041 

0042 

0043 
004A 
0045 

_^046 
0 0"4 7' 
0048 
’0049 

0050 

0051 

0052 

0053 

0054 

0055 


8 

9 

10 


U 


12 


13 


14 


15 


real 

INTESgR lX{5l2),iy(5l2),TX(5l2)iTY(6l2) 
70 a 0 

12(1X1-1X2)1,2,3. 

01»1 

..»^xsjy2.-ixi*i 

C0 T3 4 

Cl « -3. 

MX c IX1-IX2*! 

IF(TXi-TX2)5,2,6 . ... 

02 = 1 

.ia_=._T.Kl 

NX s TX2"TX1+1 
Ge T*' 7 
02 = -l 

TB 3 TX2 

NXsTXi-lX24l 

..X ^ = qi?.':X7.fl y A Tji I.X2- a?J 

00 a I 3 i.Kx 

JX(i)sl>:l»oi*<l-l) 

TX(1 )»T>1*01*( I-l )/X£ 
ir(Tvi-TX2)in,2,u _. 

TH3TV1 

..i8=m 

Q4sl 

TYDsTy2-Ty1^1 _ _ _ . 

.•'.C TO 12 
TB 8 TV? 

IB 8 IY2 

_048-_J 

TYHs fVl-TY2*i 
CO‘'TlNl'E 

1F(IV)-Iv2)13,2,14 

C0^'TI^Hfc■ 


j=iY 2 -J n*i 

m y 8 J 

T0 15 




16 


icno 


Gif 

C0*ITp;l'fc 
«Y 3 1V1-1Y2+1 

04S-C4 _ 

Y2 3 rL?AT(MY)/FLClT(TYD) 

JO 16 ! = 1,_^Y_ 

IV <1 )t i ;;.*Q4«( 1-i) 

TY< HiTt.*( I-D/Y7 _ _ _ _ _ 

NETUP. 

C3\TirA'E 

k.RlTfeC 10,1000) ixii, I Yl, !X?, lY?, TX1,TY1,TX2,TY2 
r.HflATC l\POT_C?3';01 ■^aTF cHPi’‘-;_IN 22g00H.«/' »|Bl l0> 

■e 0'"8 'i 

RtTuSv 

CN2 
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APPENDIX A 


DOCUMENTATION ON FSTVID, 
ERRMES, AND MODEF 


NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
GODDARD SPACE ri.lCl IT CENTER 
GftiCNocLT. Maryland 20771 




rr-V Vj 


mu 

VA 


RErtY TO ^ 

ATTNOT; CodC 933 


fi!.i 

i 3 i976 


Mr. Jesse L. Kersh 
NASA/Johnson Space Center 
Code TF121 

Houston, Texas 77058 
Dear Mr. Kersh: 

The enclosed magnetic tape contains the FSTVID disk and 
tape I/O package that was requested by Ted Kell. The 
tape is in RSX-llD PIP format at 1600 bpi and is labeled 
'FSTVID*. Three files are contained on the tape: 


FSTVID. MAC 


ERW-IES.MAC 


MODEF.MAC 


Contains the FSTVID package. 

Contains error message subroutines 
required by FSTVID. 

Is a global symbol definition subroutine 
which must be included in tasks having 
no Fortran modules. 


Documentation on the use of this package is also enclosed. 
Sincerely, 




'7 


John T. Dalton 
Computer Systems Branch 

Enclosures 
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PSTVID 


A Disk and Tape I/O Support Package 
for'RSX-llD 


John T. Dalton 
Code 933 


February 26 , 1976 


ABSTRACT 


This document describes FSTVID/ a package of subroutines/ 
for performing efficient disk and tape I/O under the RSX-llD 
Version €a operating system* on PDP-11 computers. While the 
File Control Services (FCS) of RSX-llD provide many capabilities, 
they also impose severe restrictions due to block size limita- 
tions and overhead. FSTVID was developed to bypass the actual 
reading and writing functions of FCS and thus remove some 
of these limitations. FSTVID interfaces with FCS to allocate, 
delete, and extend files, thus maintaining compatibility with 
RSX-llD file structures. 

(The name FSTVID denotes "Fast Video". The original 
motivation for this package was a need for rapid transfer 
of image data between a video display and peripheral devices.) 


* While this package was developed under Version 6a of RSX-llD, 
it should be useable under other versions with little or 


no modification. 


Basic Functions 


The following entry points are provided by FSTVID: 

FVOPEN - opens a disk or tape file 
FVREAO reads a record from disk or tape 
FVWRIT - writes a record to disk or tape 
FVWAIT > waits for completion of the previous read or 
write operation 

FVCLOS ~ closes a disk or tape file 
FVDLTE - deletes an open disk file 

FVDSET • sets the start block number for the next read 
or. write 

PVRVIND - rewinds a tape or sets the start block to 1 for 
the next read or write operation on disk 
PRSFMtil > parses a file name and sets up a Data' Set Des" 
criptor (called by FVOPEN) 

Files arc referenced by Logical'Unit Number (LUN) . 7.ssign 
ment of a LUN to a tape drive or to a disk file is determined 
by the device/file name specified in the FVOPEN argument list, 
LUN values 1 through 16 are supported. 

Each open disk file requires a File Descriptor Block (FDB) 
In order to minimize core requirements, four FDB's have been 
coded into FSTVID. (If more than 16 LUN's or more than 4 
open disk files are required, these limits may be increased 
by editing the values of the symbols "NLUNS" and "NFDDS" in 
FSTVID and reassembling the package) . 


/ST 






Data records in disk files under RSX-llD are accessed by 
Virtual Block Number (VBN) , with the first virtual block in 
a file corresponding to VBN ±, Each virtual block corres- 
ponds to a logical (physical) block on the disk and consists 

4 

of 256 words (512 bytes). In order to allow multiple block 

transfers in a single disk access , the following approach was 

taken in the implementation of this package: 

FSTVID maintains a pointer (NXTREC) for each LUN assigned 

to a disk device. This pointer indicates the start VBN for 

the next access and is initialized to 1 when the file is 

opened. When PVREAD or FVWRIT is called for a disk file, the 

pointer is updated after the data transfer by the number of 

disk blocks required to complete the transfer. (For example# 

0 

writing 514 bytes would update the pointer by two blocks.) 

The 'effect is that a sequential access method is supported. 
(Note that generation of records that are not a multiple of 
512 bytes results in unused disk space.) 

Data may be accessed in a non-sequential manner by calling 
FVDSET to alter the NXTREC pointer, thus causing the next 
FVIUJAD or FV\*/RIT operation to begin at the specified Virtual 
Block Number . 

For example, assume that a groun of 512 byte data records 
exists on disk file. These records may be accessed in 
several ways: 
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(1) sequentially by successive FVREAD's of 512 bytei. ; 

(2) sequentially in pairs by successive FVREAD's of 
1024 bytes; 

(3) sequentially in groups of N records by successive 
FVREAD's of N X 512 bytes; 

(4) record M by calling FVDSET with an arguanent of M 
followed by calling FVREAD for 512 bytes; 

(5) N sequential records beginning with record M by 
calling FVDSET with an argument of M follov;ed by 
calling FVREAD for N X 512 bytes. 

The following section describes the calling sequences for 
each of the entry points. 

Subroutine Decriptions and Calling Sequence r : 

FVOPEN 

This subroutine initializes the package to access a tape 
or disk file: 

CALL FVOPEN ( ITYPE , LUN , FILE , NC , I STAT , lEVFLG I , NBLKS ) ) 

where 

ITYPE ** Type of access required 

» 1 to read an existing file, 

« 2 to write (create) a new file. 




/^tj 
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• 3 to ntodify an existing disk file (no extension of 
the file permitted) 

■ 4 to update an existing disk file (the file is 
extended if necessary by FVWRIT) 

■ 5 if the file specified in FILE exists, it is 
opened for update as in ITYPE ^ 4. if the file 
specified in FILE docs not exist, it is creaced 
as in ITYPE « 2. 

LUN » Logical Unit Kumber to be assigned to the disk 
file or tape drive. 

FILE ■ File name string or array containing a file name 
string (RSX-llD convention) . 

KC B Number of Characters in the file name string. 

ISTAT Word in which a status code is returned. 
lEVFLG » Event flag number to use for I/O synchronization. 

NBLKS « An argument specifying the number of 

physical disk blocks to allocate for the file 
(used only if ITYPE « 2 and FILE specifics a disk 
device) . 

File name strings are of t.io form ddn: (uic) file. type;vor 
where 



is a two character device designator 

is a 1 or 2 digital octal unit number (must be present 
if dd is present) 

is the User Identification Code .specifying the 
directory on the specified device in which the file 


A' 




is located 


file is the file name (up to 9 characters) 

typ is a file type designator (up to 3 characters) 

ver is an octal version number 

If dd « MT or MM, the LUN is assigned to the specified 
magnetic tape device; and the (uic] , file, typ, and yer portions 
of the file name are ignored; otherwise the device is assumed 
to be disk. If "ddn:" is omitted, the device used is chat to 
which the specified LUN is currently assigned. If the LUN is 
not assigned, SY^; is used by default. 

If (uicj is omitted, the UIC used is that under which the 
task is running. 

If file is omitted, FSTVID is used by default. 

If typ is omitted, IMA is used by default. 

If ver 'is omitted and a file is being read, modified, 
or updated, the latest version of the file is opened. If ver 
is omitted and a file is being created, the version number of 
the new file is one greater than the highest current version 
number. If ver is specified for a file being created and the 
file already exists with that version number, the old file is 
superseded by the one being created. 

If a file is being created on disk and KBLKS is specified, 
an attempt is made to allocate NBLKS contiguous blocks. If 
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this fails « a non**contiguous file allocation is attempted, if 
this failSf an error is returned from FCS. 


The most efficient disk transfer is a multiple block 
transfer to or from a contiguous file. If a file must be 
extended (due to NBLKS not being specified or not- being large 
enough when the file is created) , the file will probably not 
be contiguous. Therefore, it is recommended that NBLKS be 
specified and be large enough to contain the file. Of course, 
if NBLKS is larger than the nximber of blocks actually written 
in the file, the difference will be wasted disk space. 

When FILE specifies a magnetic tape device, the LUN is 
assigned to the specified device. The tape is not positioned. 
File positioning may be performed using FVR\i?ND and FVCLOS. 


FVOPEN Error Processing 

The following values are returned in ISTAT; 

0 = Successful open 

-1 = File name syntax error returned from PRSFNM 
-2 = File is already open for specified LUN 
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In the case of an error return from FCS« the FCSERR 
subroutine is called. A message describing the error is dis~ 
played on the tasks "ti" and the task is suspended. The task 
may be continued by typing: 

CON "task name" 

to MCR. The task may also be aborted at this time. If the 
task is continued, control then returns to the calling program 

FVREAD/FWRIT 

These sxibroutines read/write a specified nvimber of bytes 
from/ to the file or device assigned to the specified LUN: 

CALL FVREAD CLUN , BUFFER, MBYTES) 

CALL FVWRIT (LUN, BUFFER, MBYTES) 
where 

LUN = the Logical Unit Number assigned to the input/output 
file or device by a previous FVOPEN call, 

BUFFER = array into/from which the record is to be read/ 
written, 

MBYTES » the number of bytes to be read/written (must be 
even and non- zero) 

This subroutine is asynchronous in that control is re- 
turned to the calling progrcun immediately after the I/O 
request is queued. Before the input record is processed 
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(or output buffer area is changed ) , FVWAIT must be called to 
insure that the transfer has completed. 

I/O Error Processing 

If an error results from a call to FVREAD or FVWRIT, 
subroutine lOERR is called to ger'‘rate an error message on 
the task's "TI". If an end-of-file is detected on the file or 
device/ task execution continues. Other errors cause task 
suspension. The task may be continued by typing 

CON "task name" 

to MCR. 

Status of the I/O may be tested by the calling program 
(see FVWAIT) . 

FV^VAIT 

■ ' i - 

This subroutine waits for completion of the previous I/O 
request on the specified LUN; 

CALL FWJAIT (LUN[,IOST)) 

where 

LUN = Logical Unit Number to wait for, 
lOST = (optional) two-word array into which the contents 
of the I/O status block are returned; 

Word 1 - Byte 0 = I/O Status Code 
Byte 1 - Unused 

Word 2 = Total bytes transferred 



I/O status codes are defined in Appendix A of "RSX**11D 
Executive Reference Manual". 

FVCLOS 

This subroutine closes a file opened by FVOPEN; 

CALL FVCLOS (LUN [ , IRW^LG] ) 

where 

LUN = Logical Unit Number of file to be closed, 

IRWFLG = (optional) rewind flag 

If the LUN is assigned to a disk file, the FCS CLOSE 
macro (CLOSER) is issued for the LUN and the FDB is freed. 

If an error is returned from FCS, a message is printed on 
the task's "ti" and the task is suspended. It may be resumed 
by typing 

CON "task name" 

to MCR. 

If the LUN is assigned to a magnetic tape device, the 
following occurs: 

(1) If the tape is opened for input and the last operation 
did not encounter an end-of-file and the tape is not rewinding 
or at the load point, the tape is spaced past the next file 
mark. 

(2) If the tape is opened for output, an end-of-file 
is written. 
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• . 

(3) If the second argument (IRWFLG) is present and 
greater than 0, the tape is rewound. 

( 4 ) The LUN is deassigned. After a LUN is used for 
magnetic tape, the default LUN assignment specified at Task 
Build no longer applies. 

FVDLTE 

This subroutine deletes an open disk file; 

CALL FVDLTE (LUN, ISTAT) 

where 

LUN = Logical Unit Number of the. open disk file to 
be deleted. 

ISTAT = Word into v/hich a status code is returned. 

.=■ 0 for successful deletion 

*= -1 if the LUN did not specify an open disk file 
= -2 if an error was returned from the delete 
request to FCS 

If an error is returned from FCS, FCSERR is called to 
display a message on the task’s "ti" and the task is suspended. 
It may be continued by typing 

CON "task name" 

to MCR. 
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rVDSET (Disk files only) 

This subroutine sets the number of the first virtual 
block to be read or written by the next call to FVREAO or 
PVWRIT: 

CALL FVDSET(LUN,IVBN) 

where 

LON = the Logical Unit Number of the disk file for 

which the "next Virtual Block Number" is to be 
changed 

IVBN = the start Virtual Block Number for the next 
access (first VBN in a file = 1) . 

Since Virtual Blocks are 256 words (512 bytes) , a program 
writing or rearing logical records larger than 256 words roust 
translate its logical record numbers into virtual block numbers 
as follows: 

VBN = (LBN-1) X N + 1 

where 

VBN = Virtual Block Number in file, 

LRN = Number of the Logical Record to be accessed, 

N » Number of 256 word Virtual Blocks required to 
contain one logical record (as defined by the 
calling program) 
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FVRWND 

This subroutine rewinds a disk file or tape: 

CALL FVWVND(LUN) 

where 

LUN = Logical Unit Number of the tape or disk file to 
be rewound. 

If LUN is assigned to a magnetic tape device, the tape 
is rewound. 

If LUN is assigned to a disk file, the Virtual Block 
Number for the next access is set to 1 (equivalent to CALL 
FVDSET (LUN,1) ) . 


PRSFNM 

This subroutine parses a file name and sets up a Data 
Set Descriptor; 

CALL PRSFLM (FTLL',NCHAR,DSDESC,ERRORl,LUNj ) 

v/hcrc 

FILE = File name string or an array containing a file 
name string (RSX-llD convention) , 

NCllAR = The number of characters in the file name string. 
DSDESC = A 6-word array which will contain a Data Set 

Descriptor for the file upon return. Data Set 
Descriptors are described in "RSX-llD I/O 
Operations Reference Manual". 


ERROR ■ Status word. This is set to -1 if a syntax 
error is detected, 0 otherwise. 

LUN “ (optional) Logical Unit Number. If present and 
FILE specifies a device name, LUN is assigned to 
that device . 

PRSFNM performs the minimal amount of error checking 
required to set up a Data Set Descriptor. An error is returned 
if the device name/number is more than 5 characters (including 
":**) or if a *•(" is found wihtout a ")“ in the OIC. Other 
errors will be detected by PCS when the file is opened. 

Magnetic Tape Positioning 

FVCLOS positions a tape past the next cnd-of-file mark 
when necessary to ensure that a subsequent FVOPEN does not 
cause reading or writing in the middle of a file. While this 
feature may be used to effect positioning of a tape to a 
desired file, it is generally easier to use the Fortran special 
subroutines for issuing "Queue I/O" directives. 

For example, a tape may be positioned to the start of' 
file N by the following sequence: 

DIMENSION IBUF(. . .) ,IOST (2) 

CALL FVOPEN (1,1, 'MTO: ' ,4, ISTAT,1) 

CALL FVR;-JND(1) 

IP (N.EQ.l) GO TO 20 






N1 - N-1 
DO 10 

CALL FVREAD (1,IBUT, MBYTES) 

t 

< CALL FVWAIT(l,IOST) 

CALL PVCLOS(l) 1 CAUSES SPACE PAST EOF 
V CALL FVOPEN(l,l, 'MTO; • ,4,ISTAT,1) 

i 10 CONTINUE 

i 

j 20 CONTINUE 

*1 

; or by the following sequence; . 

I DIMENSION lOST (2) ,IPRM (6) 

DATA ISPR/"2440/ !I/0 FUNCTION CODE lO.SFF 

CALL FVOPEN (1,1, 'MTO; ' ,4, ISTAT, 1) 

i 

CALL FVRWND(l) 

i . . 

^ IPRM(1)=N-1 

CALL ;VTQIO(ISPF,l,l,,IOST,IPRM) • 

Linking FSTVID into a Tar.k 
AOIPS PDP-11/70 

FSTVID is contained in object file SYO: [1, 300] FSTVID. OBJ 


on the AOIPS PDP-11/70 
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The PCS, I/O and diroctlve error message subroutines 
PCSERR, lOERR, and DIRERR are also required (see AOIPS 
System Manager's Bulletin, Number 19). These are foiuid 
in 

SYOi [1,300]ERRMES.OBJ 

on the 11/70. If the task using these routines has no 
Portran modules, file 

SYO: tl,300]MODEF.OBJ 

must also be included as input to the Task Builder. 

AOIPS PDP“ll/45 (IMAGE 100 ) 

PSTVID ia not available on the 11/45 due to limited 
space on the system disk. The above object files should 
be obtained from the 11/70 and transferred to the user's 
disk. on the 11/45. 
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<^A5^ t«AA6> • dwot'b«u>c.4> fCunririkUta** Xr* *l*nb cinKUK id cwU Uf' f * 


<eiAhUK A&bSAUb Xe.A'i‘> 

PC-Aaaaaa 

a/Ci bi'AXUd ouuCK: M«o 


(u)b 


Mnfe^Ac V 2 bll’fc. 1 UK irib teii\6l Aui«t/ Uf* fnc 1/U SiATU^ bbOCA lA UCi'AU* 

o s uXib 0 uK i'rie, elubi itUAu (c.akuk CuUc,^ 1A t)bCXAAU« 

C s AUKt> A ur* inc. i/u dl'AiUd bUUCA i>« UcCi<4AU« 

U 8 auhU 2 uK i'nc, i/U bTAXub dLuCa iA OC'i’AL. 


klAAnKUfa 2. Ube: OK UiKtbKM Anl) lOCHH 

; AKOuAbM' Lib! KOK iObAh 
; i/u bXAi'ub bLUCK 


cIKkAku; .d^i'e; 

l.u 

• «UKU 

u 

iudX; .wuhu 

• 

• 

• 

u#o 

UXU#1$b 

'«xu 


oi- r-cv.^ 


il 1 # **#KKx # li Audi f A Adi #l)XKt#rtK 

t/AftbciK AiuL tib CAUubU if AA e.Ai<uH uCCuKd uuKiAG iddUhACe* 


ur ihb UiUA,»o. 


I'bfb iUdi' 

rUb aukkk 

lib^-CdKJ 

hUV aiUdTfCHrinrtUt/ 

hU/ atKKAK'.*^ fib 

Jbci KCfXUbrtX 

ho/ ibKJt#rtd 


; X/u CUF./uci'bu - it.wX btiKiiA CuUf:^. 

; OKAACit XK <fu C.HKUK. 

;dAVb Ab UA dXACA. 

;AUVe, ctii/U d'i’Al'US bUUCA) XU aKO UXdi* 
«Kd KuXiMX'd ‘X‘u aaG LXb‘1’ KUA XutnA 

XKbd'lUAb Kd f'Kut't b'X'ACA. 


^CuOb To be# c#Ac#i#uic#U if X AbK CuAlXAUbb«b 


AUbAAl 


I oRAACit tibbc; XK NO flKKUH* 


/;^ 


»*C»bMK 


HMtiHOUlint fhifiYo /bddAwbS Ui^ itie; TASK'S "Ti" r'OK ^ILt 
CUiiTAuL &k:Ht^iCcS it'Coj c.kkukS •ttilCii AUc, ia thZi, clTHth uiHcCi'ivt Ox 
i/u iiKnUKS. Th& AUJnclda U**' inS Ir’iUi:. wbdCi<AXLJrt uLuCtv FUn Tnt. 

FILL WM wluCit TtiL LKHUM UCCurtXeii) iH LuTniiNLa f Xwh XU. 
rtcSSALcL AxL ur' TXb FuKoi 

<‘i*Aa^ NAAt> - aUSFbiS'LciU 
<txxjx nbLanLL TLATa 
fCa fcXXOX; »*C a XAAaaX 

<F.bMX> <r.e.XXtl> KKiwcnAtte-S, LUNs<UUi<> 

AAAAaA edoboo 

AAfcxL F.LXX Ani> F.eIXXtl Ax& c.nKuH COUcia ObiAliMtU FKUM Int KOb (brlt. 

* Tnct nSA*ilu 1/u Ui'bHMi iUnS xbr*t.t^t.l'lCc. Xmi«ual>;. 

AAAAaA ANU ctbabub AhK Tnc. i'»<u ttuxUa Jr Tne. 1/u aVATua oLuCa if« 

OCTAL AAk» AXb UitbT XXlMbJ IF lab 1/U alAlUa ouUC^ 
AUUXLSS la t'XUi/lUbU Irt ThF. FUd. 


bXAXFuc; a. USb OF FCSbXX 

OFFN M « F Jo « a JA . USt'T , KaCC , uXuA , JXoa , rZ&Ehti 


UK 


OFFiVStli ilFUb 
bCC 10 $ 

JSX FCfFCSLKX 


10 $: 


; Fub riAS bLbi< COMPLbTbLK IMTlALli^bU. 
: bXAi'<Cn IF i\U cKXJx. 
f bXXUX • wAlL I' CSbaX. XO COAlAlAS 
; AuOxcaa OF Fub. 


1. 




At*‘i iibOX»Xbr(& u^bu ot i'hd AduVc dUbKUUTlncS ht^c bhVe.0 Ui4 buiKY 
And KbdrUKbU ttbt uAb KbTUKwiuO Nlili i‘ttC fULLiOAiKU bXCbt:''! lUrtb : 
iUtlHii KtuuiKba Xub AuUHdbb Ur' l'n£ I/O dl'A'i'Ud ouUCb IN h 

FuK'i'i<AN-i'it*b AK<>U<nb.«i' ul!>ji ^OXN'i'bU *i‘U bk ntiulblcrt Ka. 
r'CSbKK AbuUiKbO ‘Xnb AUUKboa Ulr' 'I'ri£ ir'Db XN nu irCb CuwV bi«Xiuu ; 

2* D(:!r ii4l i'XuW Or* Tdc OLObAb bX>ibuL "•HUlUn" b]( a ‘lAbb CHUdbb Xric 
bUibObK i'U XNXl'iAUil^b AN AOuxVXUaAu LUGiCAb UNX'X NUiSbbK ibUNj 
h'i 61'UkxhO int) r'XKa'i* uNudbu LuN xN .i^DLUN AWO AaaXONlHo XX' Xu xnci 
MO t*&bUuu-UbWXCb. bXNCb t'UKXKA.X Uai^b MO# .MOX#U(. NU6X KOX 
bb GiiUoMbbX* Ubt'XNbU ui' A I'iACc^j**!! bbUKUU'Xlwb X NCUnKUHA'i cl> Xi« A 
Ih 6K COcri'AiMXNG FuKX'KMi4>GbiMbKAibU CUUc, 'X tibKbr UkcI # Mrixbb ..-lUoUw 
xa ASburibU X'O CO«i'X'aXi'I X'rlc. ciu bUiM Xm X'ltxb FHC^Aub# .^tubOi'i lb i<iUX' 
GbObAbuX UbMNbU X'u X'rtbVbWX IM b«r bHt'UCi^ vvXX'n r'UMt\Ai4. it xnb 
bKrtHba aiioiiuU X X NoS AAc OUXuX Xi«Xu A XAbX WX'lt riO rUK'iKAA ^lUUUubb# 
'X'Hb i>}fMuub .KULbN MubX' be uLObAbbl ObFlNbO tl#6bNitbkb. 'IdlS 
MAI oc. ACCuMFbxbnbO bi XNCLJuXrtw lx « bOO X M00b» Ab xNFuT 'X'u 'x'Xib 
'X'ASK bUlbUbn. 

tXAMPliF 4. bUXliUlNG A TASb X'U Ubtu luHHl'it.S SUBKUO'X'lNLb, 

IF FOKX'KAN*’GbnbKAlbU nUUUbbb AHM knbbcNX; 

HCfO'l'Kb Ubbkl #l>fc* : / bb=USbnx « Ubc.K 2 « • • • # 0 beIHN « ( 1 « iUU J l^kkhbb 

If NO f Uk'X'HAN-GbMLKA'X'bO MuOUbbb kti,6 fnbObN'X’: 

MCK>X'Kb UbFKl # i#P; /bttsubbkl • Ubbh 2 # • « • # UbbKN #11 # 3 u 0 j tKHclbb# Ll# 3 UUj>iuUbr 

i. 'X'tib MO MANUbbK Xb uOCUnbWTbu in CrlAf'i'eR 11 OF Yllb "HbX-llU 
ObViCb tiAwbUbKb i<br'bKb)>Cb I'lAbunb"* 

4# WMFi< SbUUit'b Mt'bb/iub'b X'O lilb ^Ao^*b " I'X”# 'X'uM fe.AKi'tba bubuCJO X x Arlb 
He.uuMSx bu«'*f bNaiUi* Ur" itib x'AkuuuH X’JJt, MU nAuuubK. xlnc- 

ONb FXCbki'XUM Ib Xi< X'Hb CAbb Ur ka b<^U**ur'*f Xi#b MI:,bb<«GF rt<U/i 
lUbKK# «nbrt Xnc. 'i'nbb la CUwX'XkUcU. 1 MiibX'HtK ‘Xrifc initk it* 
bUbfbNUuU UK Cui>«ilNuh.b Xb XAuiJni'c.u X'flM r>b<:>aAOb. Itlb 

lAbM MhX I’litw bX'XrlbK ob Aoui<ic.u X'wiA i’Hb •'Aou" MCK LUMMAi'iUx 
OK Cui^l'XAUbU. bXt'<CtI Thu X'ASa la NUX XN A bX’Axb of i'HOt, 

SUbf bNbXOt<i # X'nc. MGk “ubburtb" CJi’ihrtrtU WILL f«0'X' bf FbC X' 

CONX'Xi^UAX XUi\ Of bXbCUV lurt , KAi'rtbK# Trit 'IkSti MUbX' Ob O.-iiU 
bX TXfxNu: 


CON “XAbA J.Ar.b" 


To HCa. 


,c I’OO'''- 


o 
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LECTAP 


Fortran Compatible Mag Tape Subroutines 
CALL TINIT (UNIT ,MTXTFG, DRIVE) 

where; UNIT *> LOGICAL unit number to oe assigned. 
MTXTPG - 0»MT, 1=XT 
DRIVE - PHYSICAL unit nximber 
Initializes the linkage between the tape driver and 
dataset. 

CALL TATCH (UNIT) 

where; UNIT - LOGICAL unit number. 

Attaches LUN 

CALL TRLSE (UNIT) 

where: UNIT - LOGICAL unit number. 

Removes the linkage between the tape driver and a 
dataset. 

CALL TWAIT (UNIT) 

where; UNIT - LOGICAL unit number. 

Waits for completion of process on dataset. 

CALL TUNLD (UNIT) 

where; UNIT - LOGICAL unit mimber. 

Causes requested mag tape to be rewound to UNLOAD and 
Select Remote status to go off. 

CALL TEOF (UNIT) 

where; UNIT - LOGICAL unit number. 

Writes an end-of-file record on the mag tape. 
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CALL TRWD (UNIT) 

where; UNIT - LOGICAL unit nxaniber. 

Causes requested mag tape to be rewound to the 
beginning-of-tape-marker . 

CALL TREAD (UNIT , BUFF ,BWC) 

where: UNIT - LOGICAL unit number. 

BUFF - buffer to read data into. 

BWC - size of buffer in words. 

Reads the next record in the dataset into the buffer. 
Returns actual number of bytes read in common status 
in word 2. 

CALL TWRIT (UNIT, BUFF, BWC) 

where: arguments are described under MTREAD. 

Writes the next record in the dataset from the 
designated buffer. 

CALL TFILE (UNIT, FILES) 

where: UNIT - LOGICAL unit number. 

FILES - number of files to skip. 

+ = forward, - = backward 
Skips forward/backward over requested number of 
EOF marks. 

CALL TSET (UNIT, DENSITY, PARITY) 
where: UNIT - LOGICAL unit number. 

DENSITY - desired density. 

PARITY - desired parity. 

This request is ignored for 9-track tapes; it sets 
density and parity as follows for 7-trark tapes. 



Density 


Parity 


0 - 200 bpi 

1 = 556 bpi 

2 = 800 bpi 

3 = 800 bpi Dump Mode 


0 “ Odd 

1 - Even 


CALL TSTAT (UNIT, FNCT, RESIDU) 
where: UNIT - LOGICAL unit number. 

FNCT - status returned. 

RESIDU - residue count returned. 

Returns the current status of the tape unit and a 
residue count. 

Format of the status word is: 

Bit Content 

0-2 Last command was: 

0 = offline 

1 = read 

2 = write 

3 = write EOF 

4 = rewind 

5 = skip record 

6 = backspace record 

7 = unload 

3-6 Unused 

7 1 = tape after EOF 

8 1 = tape at BOT (100,000,000) 

9 1 = tape after EOT 

I 1 = write lock on 

II Parity 

0 = Odd 

1 = Even 

0 = 9-track, 1 = 7-track 




12 


Bit 

13-14 


15 


Content 

Density; 

0 = 200 bpi 

1 = 556 bpi 

2 B 800 bpi 

1 B Command Caused Error 


COMMON BLOCK 
Name - Status 

Word 1 and 2 - Drive status as returned by I/O handler. 

See RSX-llD device handlers reference 
manual (#DEC-ll-OXDHA-B-D) . 



INDEX TO ALL VOLUMES 


The following index lists all computer programs and sxibroutines 
found in the text and printouts, and the variables listed in the 
text. The first number of each description is the volume number, 
and the remaining number refers to the section in that volume. 

A preceding L indicates the position of a listing. Therefore, 
1<>3.3.1 indicates a reference in section 3.3.1 of volume 1, and 
L2-14.6 indicates that a listing can be found in section 14.6 
of volume 2. The list of programs and subroutines is definitive. 
The list of variables is not complete since those not mentioned 
in text are not included. 


DESCRIPTION 


Lir« CCmENT 


OCCURRINr CS 




UARIABLE 

1 


1-3.S.1.2 

1-3.5. 1.6 




2 


3-9. 


«PT 


UARIABLE 

1 

• 

1-3, 5.2.6 


IPCOOT 

com 

UARIABLE 

1 


1-4. ..9 


=CDOTE 


UARIABLE 

1 


1-3, 5. 1.4 

1-3.5.2.5 

fCDISP 

com 

UARIABLE 

1 


1-3. 4,9 

1-3.5.2.3 

=CLL«P 


PRCGR«1 

1 

TASK 

l-CUfTTNTS 

1-3. 5. 2.1 

^DRTES 

COT2 

UARIABLE 

1 


1-3. 4.9 

1-3. 5. 2. 3 




2 


1-3. 5. 2.x 


fIDSK 


UARIABLE 

1 


1-3. S. 1.5 


^ID 


UARIABLE 

1 


1-3.5. 1.5 


\JUL 


UARIABLE 

1 


1-3.5. 1,5 


PLABEL 


UARIABLE 

1 


1-3. S. 2,6 


PUJUPD 

PRILT 

SUBRU/TINE 

1 


1-3.5. 1,3 



core 

UARIABLE 

1 


1-3. 4. 9 


S^LP0 

core 

UARIABLE 

1 


1-3. 4. 9 


qUPTPB 

PRIUT 

SUBROLfTINE 

1 




pLSDRT 

PRiv/r 

SUFiROrriNE 

1 


1-3,5. 2.6 




UARIABLE 

1 


3-4.4 


PNPLYST 

UARIABLE 

1 


1-3. 4.9 


PNCL 


UARIABLE 

1 


1-3.5. 2. 3 


PQLFSl 

PRIVT 

SUBRCX/TINE 

1 


1-3.5. 2.x 


WflND 


'JAR I ABLE 

1 


1-3. 5. 2.6 


PRIMD 


UARIABLE 

1 


1-3.5. 2.6 


PRRY 


UARIABLE 

1 


1-3.5. 2.9 


RGBS 


UARIABLE 

1 


1-3.5. 1.5 


PSNLUN 

F4PLIBSUBR0UTINE 

1 


1-3.5. 1.4 


ASSIGN 

F4PL I BSUBROUT I NE 

1 


1-3.5. 2,6 

1-3.5.2.8 

PTTPCH 

F4PLIBSLIBR0UTINE 

1 


1-3. 5. 2.5 

1-3.5.2.6 

PYR 


UARIABLE 

1 


1-3.5. 1.5 


p 

com 

UARIABLE 

1 


1-3. 4.9 

1-3.5. 1.2 

r 



2 


1-3,5. 2.x 

3-ie. 

^IPSCR 


PROGRfn 

1 

TASK 

i-cornmS 

1-3.5. 2.1 

PITSET 

SHARE 

SUBROLfTINE 

1 


3-1. 


BLKTHM 

SHARE 

SUBROUTINE 

1 


1-3. 5,2.5 

1-3. 5. 2. 7 

jbljdck 


UARIABLE 

1 


1-3. 5. 2. 4 


BLOMUP 

PRUT 

SUBROUTINE 

1 


1-3.5.2.S 


BRFtX J 

PRUT 

SUBROUTINE 

1 


1-3. 5.2.9 


feSTAT 

OFFICE 

PPfJGRAN 

1 

TASK 

l-CaiTNTS 

1-3. 3.1 

BUFCLH 


UARIABLE 

1 


1-3. S. 2. 6 


5BUFDOT 


UARIABLE 

1 


1-3. 5.2. 6 


F 


UARIABLE 

1 


1-3.5. 1.2 

1-3. 5.2.3 

Cl 


UARIABLE 

1 


1-3.4. 9 




UP PI ABLE 

1 


1-3. 4.9 


"3 


'JARIABLE 

1 

• 

1-3. 4.9 


C4 


‘JAPIABI.E 

1 


1-3. 4.9 


:>^p 


UARIABLE 

1 


1-3. 5. 2. 3 


:>^ri5AUE 

. INC 

FILE 

1 


1-3. 4.9 


Cf4isccr\ 

UN. INC 

FILE 

1 


1-3. 4. 9 


CANSEX 


RRTJI»RP«1 

1 

TASK 

1 -camfTS 

1-3.5.2.1 

CAMSPARAM. INC 

FILE 

1 


1-3. 4.6 

1-3.4.9 

CARD 


•VARIABLE 

1 


1-3.5. 1.3 



IO.S.2.6 1-3.5.2.K 3-1.1 

1-3.S.2.6 1-3.5.2.9 

1-3.S.2.5 
1-3. 5.2.6 2-M. 

1-3.5. 2.5 1-3.5.2.6 1-3.5.2.9 


1-3.5.2.8 


1-3,5. 1.6 1-3.5.2.3 1-3.S.2.S 

3-19. 

1-3. 5. 2. 9 2-18. 

1-3.S.2.8 3-2. 


1-3.3.S 1-3.5.1.4 2-4. 


% 


2 - 7 . 

1-3.5.1.3 1-3.S.1.5 


LomrioN or 

LISTINB 


L2-14. 


L2-3.7 


L2-18.4 

L2-14.4 


L2-21.1 


L2-18. 

L3-1 

L3-2 

L2-13.6 


L2-14.6 

L2-4. 


L2-7. 


\ 




DESTPfPTION LINE CCTtlENT 


bfiRU.DWT 

FILE 

1 

1-3.5.1.2 

rPRDIN 

PRIUT 

RTCTION 

1 

1-3. 5.1. 3 

CRT 


URRIRBLE 

1 

1-3. 5.1. 3 

CRTKNT 

COMl 

UARIABLE 

1 

1-3. 4.9 

CRTLOG 

1 

PRH/T 

FUNCTION 

1 

1-3,5. 1.3 

CRTNPfl 

COM2 

UARIABLE 

1 

1-3. 4.9 

‘ 



2 

1-3.5. 2.7 

CRTTH 

COMl 

UARIABLE 

1 

1-3. 4.9 

CR*n>f1 

PRIVT 

SUBROUTINE 

1 

1-3.5. 2.7 

CBRR 


UARIABLE 

1 

1-3. 5. 2. 3 

CDRED 

PRI^ 

SUBROLfTINE 

1 

1-3.5. 1.4 

fcHPN 


LRPIAaE 

1 

1-3.5. 2.8 



UARIhPLE 

1 

1-3. 5. 2.6 

oi 


UARIABLE 

1 

1-3.5. 2.3 

iCHNUBC 


MAPI ABLE 

1 

1-3.5. 2.5 

CHT^UEC 

com 

UAPIAELE 

1 

1-3. 4. 9 

fJHP 


UARIABLE 

1 

1-3. 5. 2. 3 

fXRBEi 

PRIUT 

SUBROUTINE 

1 

1-3. 5. 2. 6 

CLRCAT 


UARIABLE 

c 

1 

3-4.4 

CL ADIS 


PROGRAM 

1 


clrdis 

PRIUT 

SUEPOUTINE 

1 


CLRsnu 

PRIUT 

SUBPOUTINE 

1 

1-3. 5. 2.x 

CLASS 


SUBROUTINE 

1 

l-CaiTMTS 

CLASSMRP.TMP 

FILE 

1 

l-J.4.3 

CLAThM 


SUBPOJTINE 

1 

1-3. 5. 2. 8 

tUSiJND 

COM4 

UARIABLE 

1 

1-3. 4.9 

cllab 


UARIABLE 

1 

1-3. 5. 2.6 


CLOSE F4PLIBSUBROLrriNE 1 
CLJ?EF F4PLIB5UBP0IJTINE 1 
CLSREP PRIUT SUaROLfTINE 1 
fXUORY 1 

DJJDIS PROGRAM 1 

O.URPT PROGRPM 1 

CLUSEL SLIBROLITINE 1 

CLusi^ PRvrr SLiBPOuririE i 

CLUSTATS.TMP FILE 1 

CLUSTATP.TTIP FILE 1 

CLUSTERMP.TMP FILE 


TRSK 

TRSK 


CLUSTR 

PRUT SUBROU’* 


CLUTHfl 

PRIUT 

SUBFOU. 


OJUUND 

COM4 

UARIABL/ 

‘ 

QiASK 


UARIABLE 

1 

CNTRL 

PRIUT 

SUBRDJTINE 

1 

com 

GLOBAL 

COMMON 

1 

2 

1 

COM2 

GLOBAL 

cafiON 

COM3 

global 

COfTIOM 

1 

pDm 

GLOBAL 

COMTON 

1 

2 

COMB 

GLOBAL 
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1-3. 5.2.1 
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L3-4.4 

IP 

FILE 

1 


1-3.3 

1-3.4. 4 

1-3.5.2.2 

1-3. 5.2.5 

1-3.5.2.6 




2 


1-3.5. 2.x 






OFFICE 

PROGRAM 

1 

TASK 

I-CONHITS 

1-3. 3.1 

1-3. 3. 3 

1-3.5. 1.3 

2-3. 
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1 

1 - 3 . 5 . 2.4 
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UAPIAaE 
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1 

1 - 3 . 4.9 
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1 - 3 .S. 2.3 


[MX2 


UAPIASLE 

1 

1 - 3 , 5. 2. 3 


MYl 


UftPiABLE 

1 

1 - 3 . 5 . 2. 3 


inv2 



i # 

1 - 3 . 5 . 2. 3 


1 LABEL 


UAPIAaE 

1 

1 - 3 . 5 . 2. 6 


irMHL»PO OFFICE 

PPCCPATI 

1 TTPSK 

1 - 3.3 

1 - 3 . 3, 1 

JMDATE 

con? 

UAPiAaLE 

1 

1 - 3 . 4. 9 

1 - 3 , 5 . 2 .X 


l-‘3.5.^•5 


3-13. 


1-3.5.2.S 1-3.S.2.9 


1-3.S.8.S 1-3.5.2.X 3-1.1 

1-3.5 3.5 


3-7. 

1-3.S.3. 


5 


% 


1-3.3.3 1-3.3.3 1-3.5. 1 


LODVriQN OF 

LISTirC 


L3-9.1 

L2-9.6 


L3-11.4 

L3-15.8 


fc^l3.7 


lZr-4.3 

L3-S.9 


L3-9.4 

L3-14. 

L3-13.S 

L3-19.4 

L3-15. 


L3-1. 



1 


i 


I 

:f 


:miMD cerw 1 

irCi-CS PR!UT SLtfiSrOUTirC 1 
!|^JDEPT PRIV/r SUBPOLrriNE 1 

IlNiT ir<TRPC ^KJ 6 P^^ 1 TP 6 K 

2 
1 


1 - 3 . 4.9 
1-3.^^. 2. 9 
1 - 3 .S.I.? 
KXs^US 
1 - 3 .S. 2.1 
1 - 3 . 5 . 1.3 


1 - 3 . 5 . 2.5 


1-3.3. 1 1-3.3.3 

1-3. 5.2.2 2-e 


1-3.3. 4 


1-3.3.5 


L^-19.2 

L2-2.2 

L2-e. 



!!NIT 








DCSCRIPTIGN LINE COrCHT 


0CCUR9EHCB5 


Loom ION or 

L1STINB 


^ o 

XHTfT 

F4l>LI85tJBSnirtNE 

1 


IHTXjnS. 

PRiur 

SUBROUTINE 

1 

c ^ 

IHK 


UPlelABLE 

1 


10 


UARIABLE 

1 

V • 

lOP 


CWIABLE 

1 

. w 

iIOPT 


ur»? TABLE 

1 

>■ > 

IP 


LIBRIA8LE 

I 


llPDDEK, 

TNP 

FILE 

1 


IRESUB 


UAPIAELE 

1 

"3 

jlRREB3 


SUBPOUT IfC 

1 


!irt 

lMflL1B?un?0Ln'INE 

1 


tllK' 

IMBLIB 

SUBROUTINE 

1 


lOPRNT 

PRIUT 

SUBROUTINE 

1 

o 


ISC5 

core 

uariable 

c 

1 


ISET 


UWIABLE 

1 


IPJOTH 


UAPIABLE 

1 


1U 


UAPIAH.E 

1 


tu. 

imLiB 

SUBROJTINE 

1 


IITT 

INPLIB 

SUPPOUTINE 

1 


IX 


UmRIABLE 

1 


!ixi 

CCTH 

UARiABLE 

1 


«IX2 

com 

I^RIABLE 

1 


I>rr 


UAPIAM.F 

1 


lY 


U^li^iELE 

1 



koMBRT 

LABH. 

Labmum 


CXTH UAPtPBLE 1 

COTH W¥V?IABLE 1 

C^^'IABLE 1 
PRORR^i 1 
UARIABL.E 1 
UAHlf^E I 

I.ARIAE3LE 1 
UAR!mR.E 1 
UARIAELE 1 
PRlVn* FUCTION I 
2 

PRIVT SUBPCIiTINE I 
2 

UWlAa.E 1 
SL^ROLTriNE 1 
UAPIABLE 1 
UWIABLE I 
PRivn* SUEROUTIhC 1 

PRIUr SUBROUTINE 1 
UARIAR.E 1 
UAPIAD^E 1 
UAPIABlE 1 
v^PIAULE 1 

UAPIABIE 1 
SHPIRE SUl KOiJTlNE 1 
UAPIABLE 1 
«JARIAtl.E I 
UAVIhH-E I 


-IfIBUPD 


i-3«S.2.S 
l-3.S.2,2 
1 - 3 .S. 1.2 
1-3.S.2*4 
1-3.5. 2. S 

1-3.5. 1.2 
1-3.5. 2. 3 
1-3. 5. 2. 4 
1-3. 5.2.8 
1-3. 5. 2. 4 

1-3. 5. 2. 5 
1-3.5. 2.5 

3-4.2 
1-3.4. 9 
3-13, 

1-3.5.2.S 

3-i7. 

1-3. 5.2.5 
1-3. 5.2. 5 
1-3. 5.2. 3 

1-3. 4.9 
1-3.4. 9 
1-3.5. 1.2 
1-3.5. 2.3 
1-3. 4. 9 

1-3. 4. 9 
1-3.5. 1.2 

3-11.2 
1-3. 5.2.8 

1-3.5. 2.8 
1-3.5. 1.2 
1-3.5. 1.5 


i-3.5.2.6 1-3.5.2.0 1-3.5.2.9 


1-3.5. 2.5 1-3.5.2.9 3-3. 

3 - 2 . 


L 2 -e .2 


L 2 - 4.2 


1-3.5.2.3 1-3.5.2.6 1-3.S.E.9 


1-3.5.2.7 3-4.2 

1-3.5.2.3 1-3. 5.2.7 

1-3.5.2.3 1-3.5.2.7 

1-3.5. 2. 7 

1-3.5.2.3 1-3.5.2.7 

1-3.5. 2. 3 1-3. 5. 2.7 

1-3.5. 1.5 1-3.5. 2.x 


1-3.5.2.X 


1-3.5. 1.2 1-3.5. 1.3 1-3.5.2.X 2-2.16 


1-3.5. 2.5 
1-3.5. 1,4 
3-4,1 
1-3. 4. S 
1-3.5. 2.6 

1-3.5. 1.2 
l-3.5,r.2 
3-17. 
1-3.5. 1.3 
1-3.5. 1.3 

i-3.5.2.3 
1-3.5. 1.3 
1-3. 5. 2. 3 
1-3. 5. 2. 3 
:-3.S.2,3 


1-3.5.2.X 


1-3,5. 2.6 


1-3.5.218 


1-3.5. 1.5 3-16. U r=1 


L2-3. ♦ 
L2-5.8 
L 2-1 ♦ 
L2-2.16 


L2-14.S 

L2-2.2 


L3-16. 


j 


NnnE 


DESCRIPTION LINE COtlBNT 


OCCURSENCSS 




riNB 



• IN 

SHARE 

9UBPOUTINE 

1 

1-3.5.2.3 

1-3.S.2.4 

1-3.6.2.S 

3-17. 


L3-17. 

• ISTl 

PRIUT 

SUBROUTINE 

\ 

l-3,5.2.7 

2-15.3 




1.2-15.3 

• IST2 

PRIUT 

SUBROUTINE 

1 

t-3. 5.2.7 

2*15.15 




L2-15.S 

• IST3 

PPIUT 

SUBPaJTINE 

1 






L3-16.4 

JDQKUP 


UAPIABLE 

1 






L2-S.ll 

jmjHL 


UAPIAfiLE 

1 

1*3.5. 2. e 






-PEED 


SUBROUTINE 

1 

•DSET 1*3.5. 1.5 





L2-12.2 

-PJLJNK 

PRIUT 

SUBROUTINE 

1 






•S 


UPRIABLE 

1 

1*3.5. 2. 3 




, 


JJN 


UARIhBLE 

1 

1-3. 4.6 

1-3.5.2.3 

3-5. 




JUN 


UARIAH-E 

1 

1*3.5. 2. 3 



, 



JJT 


UARIABLE 

1 

1-3. 5. 2. 3 






i 


UARIRBLE 

1 

1*3.5. 1.2 

1*3.5. 1.6 

1*3.5. 2 .x 




nftPUPD 

PRIUT 

SUBRtDUTINE 

1 

1*3. 5. 1.5 

1*3. 4. 9 

1-3.5.2.9 


' 

L2-S.2 

iPX«X 


UARIABLE 

1 

1*3. 4. 5 




iPJXhCD 


UARIABLE 

1 

1*3. 4, 9 




/ 


iPXCPT 


UAPIABLE 

1 

1*3.5. 1.3 

• 




mX>T4 


UARIABLE 

1 

1*3. 4.9 

1*3.5. 1.3 

1*3,S.1.5 




mxsuB 


UARIABLE 

1 

1*3. 4.9 






MB 


UARIABLE 

1 

1*3. 5.2.5 

3 2. 





-HX3DU 


PROGKIVI 

1 

-FLDUPD 





L2-2.1 

nEr«TD 

PRIVT 

SUBROUTINE 

1 

1*3.5, 2.9 





L2-19. 1 

Hflds 


LWIAELE 

1 

1*3. 5. 2. 4 






MGL 


UARIABLE 

1 

1*3. 5.2. 3 






niXDlS 

PRIUT 

SUBROUTINE 

1 

1*3. 5, 2. 7 

2*15.14 




L215.14 

MIXED 

PRIUT 

sub: JUT I HE 

1 

1*3. 5. 2.7 

2*15.16 




L21S..16 

fi. 


'JAR 1 ABLE 

1 

1*3. 5, 2. 5 

3*2. 





ho 


UARIABLE 

1 

1*3. 5.1. 2 

1-3.5.2.X 





MR 


UARIABLE 

1 

1-3. S. 2. 2 

1*3, 5.2.5 

3-2. 




rtrxTFB 


UARIABLE 

1 

1-3. 5. 2. 3 

3*5. 





'lU 


UARIABLE 

1 

1*3. 5. 2. 5 

3*2. 


* 





UARIABLE 

1 

1*3. 5. 2. 3 

i-3.5.2.7 





rwc 


lARIABLE 

1 

1*3.5. 2. 3 






-nr 


UARIABLE 

1 

1*3.5. 2. 3 

1*3. 5.2.7 







UARIABLE 

1 

1*3. 5. 1.2 

1*3. 5,1. 6 

1-3.5.2.5 

1-3.5.2.6 

1-3.5.2.X 





2 

3*3. 

3*0. 





s 


UARIABLE 

1 

1-3. 5. 2. 6 

3*3. 





NPCO 


UARIABLE 

1 

1*3. 5. 2.6 






MBIT 


UARIABLE 

1 

1*3. 5. 2, 3 






SC 


UARIABLE 

1 

1*3. 5. 2. 3 






SCAR 


UARIABLE 

1 

1*3. 5. 2. 3 






SCMAX 


MAR I ABLE 

1 

1-3. 5.2. 3 






SCrfTRL 

pRiur 

SUBROUTINE 

1 

1*3.5, 1.2 

2*2.26 



% 

L2-2.26 

SCPR 


UARIABLE 

1 

1*3. 5. 2. 3 






SCR 


UARIABLE 

1 

• 1*3.5. 2.3 






ND 


UARIABLE 

1 

1-3, 4. 6 






FcoPix 


•TRIABLE 

1 

1*3. 5. 2. 8 






ISDOT 


UARIABLE 

1 

1*3.5. 1.5 






NDOTS 


UARIABLE 

1 

1*3. 4. 4 

1-3. 4.9 

1-3.5.1.3 




MDSPR 


UAF'IABLE 

1 

1-3. 5. 2. 3 






fSDUPlX 


UARIABLE 

1 

1*3. 5.2.8 







DESCSIFTIGN LINE CXmETfr 





1-3.4.9 

1-3.S.2.3 

1-3.5.2.6 

1-3.5. 2.7 



L2-2.21 

1-3.5. 1,2 
1-3. 5. 2. -4 
1-3.5. 2,4 

2-2.21 






1-3.5. 1.2 

2-2.19 




L2-2.19 

1-3.5. 1.3 

1-3.5. 1.5 

1-3.5.2.9 




1-3. 5. 2. e 
I-COf(TNTS 
1-3. 5. 1.1 

1-3. 4. 6 

1-3.5.2.6 

1-3.S.J.7 

V. 


1-3.4. 9 

1-3. 5.2.9 

1-3.5.2.X 




1-3.4. 9 

1-3.5. 1.4 

1-3. 5. 2. 5 

1-3.5.2.9 

1-3. 5.2.x 


1-3.4. 9 

1-3.5. 1.4 





1-3. 4.9 
3-4.4 

1-3.S.1.4 

1-3.S.2.9 




1-3. 4. 9 
1-3. 4.9 
1-3. 4.9 
3-11.1 
1-3. 5.2.9 

1-3. 5. 1.4 

1-3.S.2.9 




1-3, 4.0 

1-3.4.9 





1-3. 4. 5 
1-3. 5.2.9 

1-3. 4. 6 

1-3.4.9 

1-3.5.1.4 

1-3.5.2.7 


1-3. 4.9 

1-3.5.1.4 

1-3.5.2.9 




1-3. 5.1. 3 
1-3.5.1.S 

1-3.5. 1.5 

i-3.5.2.6 




3-11.2 

1-3.5.2.2 

3-19. 





1-3. 5. 2. 3 
1-3. 5. 2. 3 
1-3. 5.2. 8 

3-11.2 





1-3.5. 1.2 

2-2.22 




L2-2.22 

1-3. 4. 9 

1-3. 5.2.x 





1-3.5.2.5 
1-3. 5. 2. 8 

3-2. 





1-3. 4.9 

1-3.5.2.5 

i-3.5.2.6 




1-3.5. 2.7 
1-3.4. 9 

1-3.5.2.5 





1-3.5, 2. 4 
1-3, 5. 2. 3 

1-3.5. 2.0 

3-11.1 




1-3.5. 1.4 

1-3.5.2.9 





1-3.5.1.3 

1-3.5. 1.5 




L2-3.13 





% 

L2-5.7 

1-3.5. 1.2 
1-3.5. 2.5 

1-3.5.2.6 

1-3.5.2.8 

1-3.5.2.9 



3-3. 

3-19. 




L2-10. 

1-3. 4. 9 
1-3. 4.9 
1-3. 4.9 

1-3.5.2.X 





1-3.4. 9 

1-3.5.2.X 





1-3. 4. 9 

1-3.5.2.X 








PERUND 

POLYCF 

POLYCR 

fPESET 

PRflJPD 



)®CftRD 

JMXXtiN 

PDDIR 


DESCRIPTION LINE COtlENT 


URRIfiBLE 1 
UWeiPBLE 1 
UARIRBLE 1 
UftRlABLE 1 
COft3 UftRIABLE 1 

SUBROUTINE 1 
PRCGRhM 1 
SUBROUTINE 1 
PRlUr SUBROUTINE 1 
INTRflC PROGR^^ 1 


PRIUT SUBROUTINE 1 
UARI<Ha.E 1 
SUBROUTINE 1 
URRIABLE 1 
COriS UARIOBLE 1 

UflRIABLE 1 
PRIUT FUCTION 1 
PRIUT SUBROUTINE 1 
PRIUT SUBROUTINE 1 


1-3.5.2.8 
1-3. S. a. 6 
1-3. 5. a. e 
1-3. 5. a. 8 
1-3. 4. 3 

l-3.5.a.5 


OCCURRENCES 


1-3.4.5 1-3.4.9 


l-COKINTS 1-3. 3. 1 1-3. 3. 3 

1-3. 3. a, 1 l-3.5.a.X 


1-3.5. 1.3 1-3.5. l.S 

1-3.5, 1.4 
1-3.5. 1.4 

1-3. 4. 9 1-3.5, a.6 


1-3,5. 1.3 
1-3.5. a.6 
1-3.5. 1. a a-a.9 


1-3. 5. a. X 


1-.3.34 


1-3. 3.5 


LOCATION OP 
L1ST1N6 


La-ia.3 

ta-10. 

La-ie.3 

La-1. 

La-21. 


L2-13.3 


La-3.5 

L2-3.B 

L2-14.2 

La-a.9. 


^DISK 

PRIUT SUBROUTINE 

1 


1-3.5. 1.1 



L2-1. 

RDDGDU 

PRIUT SUBROUTINE 

1 


1-3. S. 1.2 

2-2.11 


L2-2. 10 

IRDDOT 

PRIUT SUBPOUTINE 

1 


1-3.5. 1. a 

2-2.10 


L2-2.il 

RDF1_D 

PRIUT SUBROUTINE 

1 





L2-21.9 

RDHEAD 

PRIUT SUBPOUTINE 

1 


1-3.5. 1.1 



L2-i. 

foODAT 

SUBPOUTINE 

1 


1-3. 5.2.6 



L2-14.1 

RDKfDl 

PRIUT SUBROUTINE 

1 





L2-10.6 

RECPCT 

•JARirSLE 

1 


1-3. 5. a. 8 




RECPRN 

SUBROUTINE 

1 


1-3. 5. 2.8 



L2-16.2 

RBCPRO 

PROGRAM 

1 

TASK 

1-COKTNTS 

1-3.5. 2.8 

a- 16 . 

L2-16. 

REPORT 

PRIUT SUBROUTINE 

1 


1-3. 5. 1.1 

1-3. 5. 1.5 

a-i5.i0 

L2-1 + 

1 


2 





L2-5.10 



3 





L2-14.7 

1 


4 





L215. 10 

REPROP 

PRIUT SUBROUTINE 

1 

TASK 

1-CONTNTS 

1-3.S.2.8 


L2-16. 

REPRTN 

PRIUT SUBROUTINE 

1 





L2-14.9 

REQUES 

F4PL1BSUBROUTINE 

1 


1-3. 5. 2.1 




RFAC 

UARIABLE 

1 


1-3,5. a. 3 




RIBLD 


1 


1-3.5, 2.8 




RNUN 

MAR I ABLE 

1 


1-3.S.2.9 




ROFT 

PRIUT SUBROUTINE 

1 


1-3.5. 2.9 



L2-10. 1 

ROFTO 

UARIABLE 

1 


1-3.5. 2. 9 




RPTBEN 

PRIUT SUBROUTINE 

1 


1-3. 5. 2.x 



L2-21.7 

RREAD 

SHARE SUBROUTINE 

1 


1-3.5. 1.3 

1-3.5.1.5 

3-10. 

^ L3-18. 

RS 

UARIABLE 

1 

• 

3-19. 




RSIZ 

UARIABLE 

1 


1-3.S.2.3 




RSKIP 

UARIABLE 

1 


1-3. 5. 2. 3 




RUD 

UARIABLE 

1 


3-5. 




P 

UARIABLE 

1 


3-3. 




^Txr. 

TNP FILE 

1 


1-3. 4.0 

1-3.5.2.2 

1-3.5.2.5 


KPLOT 

T)RIUERPROGRAM 

1 

TASK 

1-CONTNTS 

1-3. 5.2.1 


L2-12, 

SDLINE 


1 





L2-10.7 

toPNT 

PK*UT SUBROUTINE 

1 





L2-10.8 


UAPIAa.E 

1 


1-3.5. 2.3 





DeSCRIPTlGN LINK CXVtCNT 


ocaimicKS 


LKOTION OF 
LlSTirB 



BECroS 

F4PL I BSUBKOUT 1 NE 
OFFICE PPOGiSPn 

1 

1 TASK 

1-3.S t.4 

l-cur*fre 

.-3. 5. 2.5 
1-3. 3.3 

bESEMD 

PPlUT SUBROUTINE 

2 

1 

2-6. 

1-3.5. 1.2 

2-2. B 

SEEK) 

UARIABLE 

1 

1-3.5. 2,X 

3-6. 

teskn 

UARIABLE 

1 

1-3.5. 1.5 


SELTCT 

PPIUT SUBPOUTINE 

1 

1-3.5.2.9 


BETblT 

IhWLIBSUBPOUTlNE 

1 

1-3.5. 2. 5 

1-3.S.2.9 

pET1£F 

F4PLXBSUBRCXrriNE 

1 

1-3. 5. 2. 5 

ID 

SUBROUTINE 

1 

1-3.5. 2.5 



SUBROUTINE 

1 

1-3,5. 2.6 


SHELL 

SHARE SUBROUTINE 

1 

1-3.5.2.5 

3-19. 

SKIP 

PRIUT rUrCTlQN 

1 

1-3.5. 1.3 


BOILGK 

core UARIABLE 

1 

1-3. 4. 9 

1-3. 5.2.5 


PRIUT SUBROUTINE 

1 



SORTRC 

PRIUT SUBROUTINE 

1 



SPilIND 

com UARIABLE 

1 

1-3. 4.9 

1-3. 5.2.5 

ISRDISK 

PRIUT SUBROUTINE 

1 

1-3.5.1.1 


SRDISK 

UARIABLE 

1 

1-3.5. l.l 


SS 

UAPIAELE 

1 

1-3. 5. 2. 3 


pSSSYYW)D.DAT FILE 

1 

1-3.5. l.l 


ferftRT 

UfiRIfffiLE 

1 

1-3.5. 1.3 


smsw 

PRIUT SUBROUTINE 

1 

1-3. 5.2.x 


STATFIL.TtiP FILE 

1 

1-3. 5.2. 2 


STRHYS 

PRIUT SUBROUTINE 

1 

1-3.5. 1.1 


STYPE 

PRIUT SUBROUTINE 

1 

1-3.5. 2.5 


SUBCAT 

coni UARIABLE 

1 

1-3. 4.9 

1-3.5. 1.4 

SUBPOP 

SUBSTR 

com UARIABLE 

1 

1-3. 4.9 

1-3.5. 1.4 

SHARE SUBROUTINE 

1 

1-3.5. 1.3 

1-3.5. 1.5 


1-3. i. 4 


i-3.3.5 


1-3.S.1.6 


2 

3 

4 
B 


1-3.S.1.6 1-3.S.2.N 3-20. 


BUD 


UARIABLE 

1 


1-3. 5. 2. 3 

6UNAZ 

• 

core 

UARIABLE 

1 


1-3. 4.9 

SUHEL 

C0N2 

UARIABLE 

1 


1-3.4, 9 

SUCLR 

PRIUT 

SUBROUTINE 

1 



T2 

PRIUT SUBROUTINE 

1 

T2DRTDD 


T2DR 

PRIUT 

SUBROUTINE 

1 



TABLE 

1 

SHARE 

SUBROUTINE 

1 


3-4. 

TAPSCN 

PRIUT SUBROUTINE 

1 


1-3.5. l.l 

TC 


UARIABLE 

1 


1-3. 5. 2.7 

TOCST 


SUBROUTINE 

1 


1-3.5. 2. 3 

TCLAM1. 

MAP 

FILE 

1 


1-3.5. 1.5 

^UNTI. 

MAP 

FILE 

1 


1-3.5. 1.5 

hrDATEl 

core 

UARIABLE 

1 


1-3. 4,9 

TDATE2 

cona 
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